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Abstract 

This  report  documents  the  W.H.O.I.  VAX-11  programs  used  to 
calculate  available  potential  energy  and  related  quantities  from  CTD  data 
using  the  technique  described  in  Bray  and  Fofonoff  (1981).  The  report 
includes  examples  of  how  the  programs  may  be  used,  as  well  as  complete 
listings  of  all  the  required  FORTRAN  files. 
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Introduction 

This  report  describes  the  structure  and  usage  of  programs  designed 
for  calculating  and  displaying  available  potential  energy  (APE), 
adiabatical ly  leveled  steric  surfaces,  and  related  variables  from  a  group 
of  CTD  stations.  For  a  general  discussion  of  the  technique  it  is 
strongly  recommended  that  the  reader  refer  to  Bray  and  Fofonoff  (1981). 
The  programs  have  an  inherent  requirement  that  the  input  CTD  data  be  an 
even  series  in  pressure,  although  the  input  pressure  interval  may  be 
specified.  This  report  describes  specifically  the  structure  of  the 
programs  as  used  on  the  W.H.O.I.  VAX-11,  with  input  data  in  the  standard 
CTD78  disc  format  (Millard,  et  al  (1978)).  Other  input  formats  can  be 
accomodated  through  modification  of  the  data  input  subroutine  as 
described  in  section  4. 

The  calculation  and  display  are  divided  into  separate  programs. 
POTential  ENergy  (POTEN)  reads  the  input  data,  calculates  the 
adiabatical ly  leveled  reference  steric  field  (see  Bray  and  Fofonoff, 

1981)  and  variables  related  to  the  leveled  field.  Potential  Energy  PLoT 
(PEPLT)  calculates  variables  derived  from  the  leveled  field  variables  and 
displays  POTEN  output  in  the  form  of  lists  and  plots. 

This  report  is  divided  into  four  sections.  The  first.  General 
Structure,  covers  the  non-FORTRAN  aspects  of  the  programs:  file 
structure,  linkage  and  general  usage.  The  second  and  third  sections 
contain  detailed  documentation  for  POTEN  and  PEPLT.  The  fourth  section 
describes  modifications  to  the  data  read  subroutine  in  POTEN,  to  allow 
input  data  in  other  than  CT078  disc  format.  Documented  examples  of  how 
to  run  the  programs  interactively  and  in  batch  mode  on  the  VAX-11  are 
found  in  Appendix  A.  Listings  of  programs  appear  in  Appendices  B  and  C. 


1.  General  Structure  of  Programs 

Both  POTEN  and  PEPLT  are  accessed  through  a  short  main  program 
which  performs  initializations  of  parameters  as  requested  by  the  user. 
Control  is  then  transferred  to  one  of  three  major  subroutines,  from  which 
point  the  user  is  free  to  access  different  branches  within  that 
subroutine,  or  request  entrance  into  either  of  the  other  two  major 
subroutines.  The  various  branches  are  described  in  detail  in  the 
following  sections.  Schematics  of  POTEN  and  PEPLT  are  shown  in  Figures 
1,  2  and  3.  The  remainder  of  POTEN  and  PEPLT  consist  of  secondary 
subroutines:  data  read,  physical  properties  of  seawater,  etc.,  which  are 
accessed  as  part  of  the  various  branches  available  to  the  user  in  the 
major  subroutines.  The  file  structure  reflects  the  program  structure 
(Table  1).  POTEN  and  PEPLT  are  linked  by  linking  the  object  files  in 
Table  1.  Accessory  files  are  listed  in  Table  2. 

The  input  data  in  CTD78  disc  format  is  accessed  using  subroutines 
from  CT0ATA/LI8,  and  the  plots  in  PEPLT  are  created  using  the  NCAR  plot 
package.  The  plot  package  creates  a  file  on  logical  unit  8  which  must  be 
read  and  translated  into  plot(s)  by  a  Metacode  translator.  Those 
translators  are  available  both  for  the  high  speed  Calcomp  plotter  and  for 
various  screens,  for  plot  previewing.  The  absolute  plot  dimensions  may 
be  altered  after  the  file  is  created,  and  the  plots  can  be  plotted  as 
many  times  as  desired.  The  use  of  the  translators  is  described  at  the 
end  of  section  3. 

The  multiple  branch  structure  of  the  programs  provides  an  extremely 
powerful  and  flexible  framework  for  computations  which  are  often  not 
routine;  however  useful  documentation  of  such  programs  is  correpondingly 
difficult.  It  is  suggested  that  the  new  user  begin  by  studying  Figs.  1., 
2  and  3.  A  documented  command  file  (ENERGY.COM)  for  a  routine 
computation  and  display  is  found  in  Appendix  A.  This  file  allows  the  new 
user  to  become  familiar  gradually  with  the  options  available  in  the 
programs.  After  studying  and  experimenting  with  the  command  file,  the 
user  may  wish  to  explore  other  options  available  by  referring  to  the 
detailed  branch  descriptions  found  in  sections  2  and  3  of  this  report. 


STATION  NAME  SHIP, 
CRUISE,  STATION 
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TA8LE  1:  FORTRAN  and  Object  Files 


Main  program 
Major  subroutines 

Data  read  subroutine 
Secondary  subroutines 

Library  subroutines 

System  subroutines  (associated 

with  the  NCAR  plot  package) 


POTEN  Files 

PEPLT  Files 

POTEN 

PEPLT 

PTENS 

PEPLS 

COMPS 

AVRGS 

AVRCP 

TABLE 

DATA 

TDATA 

POTENSUB 

PEPLTSUB 

POTENSUB 

CTDATA/LIB 

AUTOGRAPH 

OASHCHAR 

NCAR 

ft  •»  +-*0**s  r 
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TABLE  2 


Accessory  Fi les 

Common,  dimension  and  equivalence 

required  for  compilation  (FORTRAN) 

Station  lists  ( JSHP.PTN  is 

generated  by  COMPS  —  unit  12) 

Input  data 

*.CTD  is  CTD  file 
*.REG  is  generated  by  COMPS 
*.AVG  is  generated  by  AVRCP 
*  is  the  station  identifier 

Common  storage  (binary  file) 

POTEN  and  PEPLT  generate  these 
if  they  do  not  exist  in  the 
directory 

Documentation  files  (formatted) 


Command  file  used  to  set  up 
assignments  and  start  an 
interactive  job 

Command  file  used  to  run  POTEN  and 
PEPLT  sequentially  in  batch  mode, 
supplying  standard  output. 

Command  file  to  create  plots  shown 
in  Fig.  4  using  TABLE  subroutine. 

Command  file  to  compute  dynamic 
height  station  by  station  and 
output  in  map  format. 


POTEN 


COMPOTEN.FOR 


JSHP.PTN 

*  .CTD 
*.REG 


KPTCM.DAT 


POTEN.DOC 


POTEN.COM 


ENERGY.COM 


PEPLT 


COMPEPLT.FOR 


JSHP.PTN 

*.AVG 


KPLCM.DAT 


PEPLS.DOC 

PEPLS3.DOC 

AVRGS.DOC 

PEPLT.COM 


TABLE.COM 


DYNHT.COM 


K 

Jt 
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2.  Documentation  of  POTEN 

In  this  section,  the  major  subroutines  in  POTEN  described  above  are 
documented  in  detail.  They  are  all  structured  around  the  multiple  GO  TO 
statement  of  the  form 

GO  TO  (#1,  #2,  #3 .  n)  BRANCH 

with  #1  through  #n  FORTRAN  statement  numbers,  and  the  BRANCH  #  an  index 
such  that  BRANCH  #  =  n  transfers  control  to  Statement  #n.  The  BRANCH 
is  input  by  the  user  following  an  appropriate  program  prompt.  The  branch 
numbers  are  keyed  to  various  computations  which  may  be  accessed  at  the 
user's  option.  The  keys  are  listed  later  in  this  section,  and  short 
versions  of  them  may  be  obtained  on  the  terminal  any  time  the  program 
prompts  the  user  for  branch  number  input,  by  typing  0/. 

Within  each  branch  there  may  be  options  which  are  accessible  by 
varying  parameters  input  by  the  user  at  the  time  the  branch  number  is 
input.  These  options  are  also  listed  in  the  branch  keys. 

In  addition  to  input  parameter  options,  there  is  an  array  called 
ISSW  with  16  elements  found  in  both  programs.  Within  the  different 
branches,  different  elements  of  ISSW  may  be  tested  for  values  of  -1  or  0, 
and  options  either  accessed  or  skipped  depending  upon  the  value.  In 
general,  ISSW  elements  determine  whether  a  given  type  of  output  is 
generated.  (Historically,  the  ISSW  array  derives  from  the  binary 
switches  available  on  the  shipboard  computer,  the  HP2100  series.)  The 
elements  of  ISSW  may  be  altered  by  accessing  the  appropriate  branch  in 
both  POTEN  and  PEPLT  as  described  below. 

As  described  earlier,  POTEN  is  accessed  as  a  short  main  program 
which  initializes  parameters  if  requested  by  the  user,  or  reads  from  a 
binary  file  KPTCM.DAT  the  most  recently  stored  parameters,  if  no 
initialization  is  requested.  The  main  program  POTEN  then  transfers 
control  to  the  major  subroutine  PTENS  which,  as  shown  in  the  schematic 
Fig.  1,  controls  the  various  branches  available  to  the  user.  PTENS  is 
the  only  component  of  POTEN  in  which  branches  may  be  accessed.  The  two 
remaining  major  subroutines  are  COMPS,  in  which  the  regressions  are 
performed,  and  AVRCP,  in  which  the  horizontal  averaging  is  performed. 
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This  subsection  charts  the  branches  available  to  the  user  in 
detail,  and  describes  briefly  the  working  of  COMPS  and  AVRCP.  Short 
versions  of  the  branch  documentation  are  found  in  the  Appendix,  and  may 
also  be  printed  on  the  screen  while  the  program  is  (interactively)  on 
line  by  typing  0/  whenever  the  program  prompts  for  branch  input. 

2a.  Main  Program: 

The  main  program  queries  the  user  'Initialize  common  (YES  or 
NO)?'.  A  NO  response  causes  the  present  elements  of  KPTCM.DAT,  the 
binary  storage  file,  to  be  read  into  common.  (If  no  file  KPTCM.DAT 
exists  in  the  directory,  the  program  will  create  a  new  file  named 
KPTCM.DAT,  but  if  the  response  to  the  initialization  query  was  NO,  an 
'end  of  file  during  read'  error  will  result.  Therefore,  the  proper 
sequence  of  commands  to  create  a  new  KPTCM.DAT  file  is  to  run  POTEN, 
respond  YES  to  the  initialization,  thereby  creating  a  new  KPTCM.DAT,  but 
not  attempting  to  read  from  it.  Later  in  the  program  (in  branch  3) 
common  may  be  stored  to  the  newly  created  file,  for  use  next  time  the 
program  is  run.)  A  YES  response  initializes  the  data  selection 
parameters  (subroutine  DATA),  and  certain  other  parameters  not  related  to 
the  regressions. 

Following  this  query,  control  is  transferred  to  PTENS,  and  the  user 
is  asked:  'Initialize  regression  parameters  (YES  or  NO)?'.  A  YES 
response  initializes  the  regression  parameters.  A  NO  response  reads  them 
from  KPTCM.DAT.  (Again,  with  a  newly  created  KPTCM.DAT  file,  the  correct 
response  is  YES.)  Finally,  PTENS  asks  for  the  resolution  of  the  input 
data,  before  going  to  branch  mode.  At  this  point  the  user  may  input  up 
to  7  variables,  as  listed  in  the  program  prompt.  The  current  values  of 
the  variables  are  printed  on  the  screen  along  with  the  prompt  list.  The 
variables  are:  KBR,  the  branch  number;  ISW  and  JSW,  which  may  access 
different  options  in  branch  KBR;  KLIST,  usually  the  list  output  logical 
device  number  (reset  to  6  each  time  the  prompt  is  printed);  KOUT  and  KTP, 
the  data  output  and  input  logical  device  numbers  (note  that  the  program 
uses  named  files  for  data  input  and  output  via  OPEN  statements  which  use 
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KTP  and  KOUT  as  unit  numbers  );  KIN,  the  program  input  device  for  screen 
or  command  file.  (Changing  the  value  of  KIN  to  6  part  way  through  a  COM 
file  transfers  control  to  the  screen,  allowing  interactive  mode  —  see 
Appendix  A  for  an  example  command  file,  POTEN.COM.) 

2b.  Branches  (KBR) 

0:  Short  documentation  printed  on  screen.  See  Appendix  B  for  a 
listing  of  this  documentation. 

SUMMARY  -  POTEN.'PTENS:  KBR  =  0 

Function:  List  on  terminal  the  short  documentation  for  PTENS 

ISW,  JSW  options:  None 

Output  device:  unit  KTTX 

Input  device:  None 

ISSW  options:  None 

1:  Calls  COMPS  subroutine,  which  performs  the  following  sequence: 

a.  Calls  subroutine  DATA,  which  opens  the  subindex  directory 
for  the  default  file  specifications  of  the  input  data.  (Those 
specifications  may  be  changed  by  calling  KBR  »  13,  which  is 
identical  to  branch  1  except  for  allowing  file  specifications  to 
be  changed.)  Then  the  header  for  the  ISWth  sequential  station 
in  that  subindex  file  is  examined  to  see  if  it  meets  data 
selection  criteria.  If  so,  a  file  name  is  written  to  file 
corresponding  to  logical  unit  12.  Throughout  this  report  that 
file  is  called  JSHP.PTN;  an  example  is  given  in  Table  3.  The 
temperature  and  salinity  data  are  transferred  to  array  DATAX, 
using  Millard  subroutine  GETDAT.  Pressure  is  stored  in  the 
zeroth  element  of  DATAX,  which  is  equivalenced  to  array 

PRESS.  PRESS  is  used  throught  COMPS  and  AVRCP.  The  total 
number  of  scans  (NTOT)  is  also  noted.  The  above  occurs  in 
subroutine  DATA,  after  which  control  returns  to  COMPS. 

b.  COMPS  then  sets  up  the  regression  for  the  first  interval 
using  parameters  which  may  be  changed  using  branch  3  and 
continues  the  computation  through  all  the  intervals  requested. 
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TABLE  3 

Example  of  a  JSHP.PTN  file  generated  by  COMPS 


Consec. 

Station  I.D. 

Weight 

Number 

1 

GY001Q02 

1.0 

2 

GY001003 

1.0 

3 

GY001004 

1.0 
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or  until  the  end  of  the  data  (determined  by  NTOT)  is  reached. 

For  each  interval  potential  temperature  and  steric  anomaly 
referred  to  p^  (the  level  pressure)  are  calculated  for  each 
data  scan  to  be  used  in  the  regression.  Potential  temperature 
is  calculated  according  to  Fofonoff  (1977),  using  the  polynomial 
formula  of  Bryden  (1973)  for  the  adiabatic  temperature 
gradient.  Steric  anomaly  6  is  calculated  as: 

6  =  105  x  (a(p,e(p,T,S,pf),  6)  -  a(p,0,35) ) 
with  a  the  specific  volume  calculated  according  to  the  SCOR 
Working  Group  51  new  equation  of  state  for  seawater  (Mi llero,  et 
al,  1980),  for  which  an  algorithm  is  given  by  Fofonoff  (1981). 
Within  each  interval  an  editing  process  occurs  in  which  points 
exceeding  three  standard  deviations  of  the  regression  estimate 
at  a  given  steric  anomaly  are  flagged.  Temperature  and  saliity 
are  then  regressed  against  pressure  over  the  interval.  Any 
points  in  T  or  S  which  exceed  three  standard  deviations  are 
replaced  by  the  regression  estimate.  The  regression  of  steric 
anomaly  is  performed  again  and  rechecked.  The  number  of 
standard  deviations  for  both  tests  may  be  changed  —  see 
KBR  =  3.  The  interpolated  scans  are  printed  out  on  unit  KLIST 
and  data  scans  which  are  flagged  but  not  interpolated  are  also 
listed  as  such  on  KLIST  if  ISSW  (3)  is  set  to  -1.  (ISSW  values 
may  be  changed  using  branch  5.)  Pressure  p  and  potential 
temperature  e  (referred  to  the  level  pressure  p^)  are 
regressed  against  steric  volume  anomaly  (also  referred  to 
Pf)  and  the  coefficients  for  both  p  and  e  are  stored  in 
arrays  CP  and  CT  for  each  interval.  Data  output  occurs  if 
ISSW  (13)  =  -1,  and  is  written  into  a  file  with  the  name  *.REG, 
where  *  identifies  the  station,  a  two  character  (alpha)  ship 
name,  a  3  digit  cruise  number  and  a  3  digit  station  number.  The 
format  of  the  ouput  file  is  a  header  of  150  words  equivalenced 
to  an  1*4  array  followed  by  a  variable  number  of  data  records 
(each  46  words,  also  an  1*4  array),  one  record  per  level 
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TABLE  4 

POTEN  Data  Output  Variables 


HEADER  RECORD: 

VARIABLE 

150  WORDS 

NAME 

DESCRIPTION 

LTYPE 

Identifies  record  as  header  record  (LTYPE  =  1) 

MHDR 

Number  of  elements  in  header 

ICON 

Sequential  number  of  station  (in  POTEN  calculation) 

ISHP 

Ship  name  (A2  format) 

KCAST 

Station  number 

I  DAY 

Julian  year  day 

I  PR 

First  pressure 

LPR 

Last  pressure 

XL  AT 

Latitude  of  station 

XLONG 

Longitude  of  station 

WGT 

We i ght 

XLTJD 

Latitude  of  origin  for  distance  computations  in 
kilometers  (negative  for  south  latitude) 

XLG0 

Longitude  of  origin  (negative  for  west) 

LBBL (3) 

Short  station  label  (3A4  formt) 

LBL (13) 

Run  identification  label  (13A4  format) 

NSC (60) 

Regression  parameters  j  $ee  text 

Regression  parameters 

NPR  ( 60 ) 

NSECTION 

Number  of  sections  in  the  water  column 

DATA  RECORD:  46  WORDS 

KTYPE 

Identifies  record  as  data  record  (KTYPE  *  0) 

MBUF 

Number  of  elements  in  data  record 

IREC 

Level  number 

N 

Polynomial  order 

NDP 

Number  of  data  scans  used  in  regression 

KSW 

Not  used 
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TABLE  4  (continued) 


NAME 

LI 

L2 

PF 

T0,S0,OV0 


PI 

THF 

DVI 

DVF 

PM,THM,SM,DVM 

DH 

PE 

XPE 


CP(  8) 

Z1 

CT{8) 

Z2 

F1,F2,F3 

XLT0: 

XLG0: 


DESCRIPTION 

Not  used 
Not  used 
Level  pressure 

Temperature,  salinity  and  steric  anomaly  from  input 
data,  averaged  about  PF  ±  POIFF  (see  branch  3 
description  and  Table  5) 

Pressure  of  the  reference  steric  anomaly  (DVF)  in  the 
unleveled  or  initial  field 
Local  potential  temperature  (referred  to  PF)  as 
estimated  by  the  regressions:  e^(P^) 

Steric  anomaly  corresponding  to  PF  in  the  initial  field 
Steric  anomaly  corresponding  to  PF  in  the  leveled  field 
Average  of  pressure,  potential  temperature,  salinity 
and  steric  anomaly  over  the  regression  interval, 
da/dp  based  on  the  averaged  regression  coefficients 
Potential  energy  anomaly  j  Recommended  that 

Horizontally  average  PE  these  not  be  used, 

but  calculated  in 
PEPLT 

Pressure  vs.  steric  anomaly  coefficients 
Standard  deviation  of  regression  pressure  estimate 
(Fofonoff  and  Bryden,  1975) 

Potential  temperature  vs.  steric  anomaly  regression 
coefficients 

Standard  deviation  of  regression  temperature  estimate 
Steric  volume  minimum,  maximum  and  average  over 
regression  interval 

Latitude  of  origin:  default  is  40.0 

Longitude  of  origin:  default  is  -70.0 


t 
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p  ^  •  The  output  is  in  binary  (unformatted)  files.  The  variables 
output  are  identified  in  Table  4.  Some  information  at  each  level  may 
be  output  to  unit  KLIST  if  ISSW  (12)  =  -1,  for  purposes  of  checking. 
Header  information  is  ouput  to  unit  KLIST  if  ISSW  (11)  =  -1.  The 
input  data  scans  are  output  to  unit  KLIST  if  ISSW  (5)  =  -1  and  the 
regression  coefficients  and  residuals  are  output  to  unit  KLIST  if 
ISSW  (10)  =  -1.  If  ISSW  (6)  =  -1  statistics  of  the  coefficients  are 
printed  on  unit  KLIST.  The  ratio  of  each  coefficient  to  its  standard 
deviation  (see  Fofonoff  and  Bryden,  1975,  Appendix)  is  computed.  For 
an  infinite  number  of  degrees  of  freedom,  at  95%  confidence  that 
ratio  should  equal  or  exceed  1.96.  The  statistic  which  is  listed  is 
(a.j  the  coefficients): 


std  dev  (a . )  ' 

When  stations  with  subindex  reference  number  (sequential  number) 
ISW  through  JSW  have  been  tested  for  data  selection  criteria  and 
either  been  skipped  or  have  gone  through  the  regression 
calculation,  COMPS  returns  control  to  PTENS. 

SUMMARY  -  POTEN: PTENS:  KBR  =  1 

Function:  calls  COMPS  subroutine 

ISW,  JSW  Options:  ISW  to  JSW  are  the  station  reference  numbers 
data  goes  automatically  to  *.REG  file  if 
ISSW  (13)  =  -1;  other  information  output  goes 
to  unit  KLIST,  as  requested  by  elements  of  ISSW 
3  =  -1  Print  out  interpolated  scans 

5  =  -1  Print  out  input  data  scans 

6  =  -1  Print  out  coefficient  statistics 

10  =  -1  Print  out  regression  coefficients  for 
each  scan 

11  =  -1  Print  out  header  information 

12  =  -1  Print  out  selected  data  following 
regression 


Output  device: 


ISSW  options: 
(to  unit  KLIST) 


I  - 
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13  =  -1  Data  output  to  *.REG 

2:  Initializes  data  selection  parameters  described  in  Table  5 
SUMMARY  -  POTENrPTENS:  KBR  =  2 

Function:  Initialize  data  selection  parameters 
ISW,  JSW  Options:  None 
Output  device:  None 
ISSW  Options:  None 

3:  Changes  or  lists  regression  and  data  selection  parameters 
described  in  Table  5.  The  data  selection  parameters  are 
straightforward.  For  the  regression  parameters  the  water  column 
is  divided  into  a  maximum  of  nine  sections,  each  of  which  may 
have  a  number  of  levels  whose  regression  parameters  are  the 
same.  The  regression  parameters  consist  of  the  total  number  of 
sections;  in  each  section,  the  interval  between  leveled  surfaces, 
the  interval  over  which  the  regression  is  performed,  the 
polynomial  order,  and  start  and  end  pressures  for  the  section. 

All  of  these  parameters  are  input  using  subroutine  PARAM,  which 
branch  3  calls.  The  prompts  are  (hopefully)  self-explanatory. 
After  parameters  have  been  entered  for  all  sections,  PARAM 
translates  them  into  internal  parameters  which  control  the  way 
the  program  performs  the  regressions.  These  internal  parameters 
are  stored  in  arrays  NPR  and  NSC.  Since  the  arrays  NPR  and  NSC 
are  included  in  common  stored  to  KPTCM.DAT,  the  user  form 
parameters  need  be  entered  only  once,  until  a  change  is 
required.  The  old  parameters  may  be  retrieved  by  responding  'NO' 
to  the  initial  query  in  PTENS  'Initialize  regression 
parameters?'.  Stored  common  is  written  to  KPTCM.DAT  at  the  end 
of  branch  3,  so  any  changes  in  regression  parameters  will 
overwrite  the  most  recent  ones  in  KPTCM.DAT,  provided  branch  3  is 
completed.  It  is  not  possible  to  change  only  a  single  regression 
parameter;  if  a  change  is  required,  all  the  parameters  must  be 
re-entered.  (This  is  because  the  internal  parameters  NPR  and  NSC 
have  elements  whose  value  depends  upon  parameters  for  more  than 
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TABLE  5 

POTEN  Parameters:  Branch  KBR  =  3 


Parameter 

ICON 


KSW 

A2 


A3 


WGT 

PDIFF 

DELP 


Definition 
Consecutive  number 


Not  used 

Number  of  standard  deviations 
allowed  for  a  regression  point 
in  p(«)  before  flagging. 

Numbe  '  of  standard  deviations 
allowed  for  a  regression  point 
in  T(p)  and  S(p)  before 
interpolation 
Weight 

Interval  (db)  about  Pf  for 
averaging  Tf),S0,P0 
Pressure  series  interval  for 
input  CTO  data  (db) 


Default  if  Initialized 
1  for  first  station. 
Increments  with  stations 
processed 

1 

3. 


3. 


1. 


6. 


2. 


REGRESSION  Parameters  —  as  described  in  program  prompts 

Data  selection  parameters:  windows  such  that  data  inside  all  windows  is 

accessed;  all  other  data  skipped 


IDAY1 

Minimum  Julian  year  day 

0 

IDAY2 

Maximum  Julian  year  day 

365 

JDO 

Additive  constant  to  actual  day 

0 

XEMN 

Minimum  longitude 

-180.0 

XEMX 

Maximum  longitude 

180.0 

XMN 

Minimum  longitude 

-  90.0 

XNMX 

Maximum  latitude 

90.0 
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one  section.  PARAM  requires  that  parameters  be  input 
sequentially.)  It  is  not  necessary  to  understand  how  NPR  and  NSC 
work  in  order  to  run  the  program  (that  is  the  purpose  of  the 
PARAM  subroutine);  however,  modifications  of  the  program  may 
require  that  the  programmer  know  how  these  arrays  function.  A 
brief  description  is  therefore  presented  here.  The  pressure 
Pf  for  each  level  is  given  by: 

For  IREC  less  than  NPR(section  #) 

PF  =  NPR(section  #  +  total  number  of  sections)  x 
(IREC  -  NPR(section  #  +  2  x  total  number  of  sections)) 

NPR  (section  #  +  total  number  of  sections)  contains  the 

interval  between  pressure  levels;  NPR(section  #  +  2  x  total 
number  of  sections)  contains  an  index  which  allows  the  correct 
Pf  to  be  determined,  while  NPR(section  #  )  contains  the  level 
number  at  which  the  section  commences.  Some  care  should  be  taken 
to  assure  that  the  parameters  input  are  consistent. 

Specifically,  the  first  level  of  a  new  section  must  have  a 
pressure  pf  such  that  p^  is  some  integral  multiple  of  the 
pressure  interval  between  leveled  surfaces  in  that  section.  The 
use  of  the  total  number  of  sections  allows  the  program  to  treat 
NPR  as  a  variable  length  two-dimensional  array,  even  though  it  is 
in  fact  singly  dimensioned.  Subroutine  PARAM  adds  an  additional 
'dummy'  section  below  those  input  by  the  user  to  assure  that 
COMPS  does  not  continue  below  the  desired  depth.  Thus,  the  total 
number  of  sections  (NSECTION)  will  always  be  one  greater  than  the 
number  input  by  the  user. 

Array  NSC  contains  the  remainder  of  the  parameters:  start 
pressure  in  NSC(section#  ),  polynomial  order  in  NSC(NSECTION  + 
section  #),  number  of  data  scans  in  the  regression  interval  in 
NSC(2*NSECTI0N  +  section  #). 

SUMMARY  -  POTEN-.PTENS:  KBR  =  3 

Function:  Change  or  list  regression  and  data  selection  parameters 
ISW,  JSW  Options:  ISW  =  0:  short  list  only 
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1:  full  list 


JSW:  no  options 

Input  device:  unit  KIN 
Output  device:  unit  KLIST 
ISSW  Options:  None 

4:  Call  AVRCP  -  averaging  subroutine.  The  pressure  and  potential 
temperature  coefficients  from  the  regressions  performed  in  COMPS 
are  averaged  horizontally,  level  by  level.  The  average  pressure 
polynomial  at  each  p^  is  set  equal  to  pf 
(corresponding  to  a  mass  conservation  constraint  between  the 
initial  and  leveled  fields)  and  the  resultant  polynomial  is 
inverted  to  obtain  the  reference  steric  anomaly  («^) 
corresponding  to  that  p^.  (See  Bray  and  Fofonoff,  1981  for 
a  more  detailed  discussion.) 

The  averaging  is  actually  done  in  two  'passes'  through  the 
data,  but  a  single  call  to  AVRCP  with  ISSW (7)  =  0  will 
automatically  average  and  output  new  station  data  files  based  on 
the  leveled  field.  (Data  ouput  occurs  if  ISSW(13)  =  -1,  as  in 
COMPS.  The  new  files  are  called  *.AVG  with  *  as  before  the 
station  identifier.)  Information  about  the  averaged  pressure 
coefficients  is  output  to  unit  KLIST  if  ISSW(12)  =  -1. 

Information  about  the  averaged  steric  field  is  output  to  unit 
KLIST  if  ISSW(ll)  =  -1. 

The  two  averaging  'passes'  may  be  accessed  individually,  and 
separately  from  the  data  ouput  by  setting  ISSW ( 7 )  =  -1  and 
entering  K8R  =  4,  ISW  =  1  for  the  first  pass,  K8R  =  4,  ISW  =  2 
for  the  second  pass  and  KBR  =  4,  ISW  *  3  to  output  the  new 
station  data  files.  However,  since  the  second  pass  must  be 
performed  directly  after  the  first,  and  the  output  directly  after 
the  averaging  it  is  recommended  that  the  automatic  access  be  used 
{ ISSW (7)  =  0).  If  no  output  is  desired,  ISSW(13)  should  be  set 
to  0. 

SUMMARY  -  POT£N:PTENS:  KBR  =  4 

Function:  Call  AVRCP  averaging  subroutine 


*4 

M 
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ISM,  JSW  options:  If  ISSW{ 7)  =  -1 


If  ISSW ( 7 )  =  0: 


ISM  =  1:  First  averaging  pass 
ISM  =  2:  Second  averaging  pass 
ISM  =  3:  Output  of  data  to 
*.AVG  files  if 
ISSM (13)  =  -1 

ISM  =  1:  Averaging  and  output 
performed 
automatical ly. 


Input  files: 
Output  files, 
Output  files, 
ISSW  Options: 


*.REG 

data:  J  .AVG 

lists:  unit  KLIST 

ISSW(7)  =  -1:  individual  access  of  averaging  passes 
ISSM (11)  =  -1:  List  of  averaged  steric  field  on 


unit  KLIST 


ISSW(12)  =  -1:  List  of  averaged  pressure 
coefficients  on  unit  KLIST 
ISSM ( 13)  =  -1:  Leveled  field  based  data  output  to 
*.AVG  files 


5:  Not  used 

6:  Print  data  label.  This  label  is  input  by  the  user  in  branch  3, 

and  is  carried  in  both  the  *.REG  and  *.AVG  files  as  an  identifier 
of  the  group  of  stations,  the  version  of  the  POTEN  run,  etc.  Its 
format  is  13  A4  or  a  total  of  52  characters.  Branch  6  lists  this 
label  to  unit  KLIST. 

SUMMARY  -  POTEN :PTENS:  KBR  =  6 


Function:  Write  data  label 
ISW,  JSW  options:  None 
Output  device:  unit  KLIST 

ISSW  options:  None 

7:  Not  used 

8:  Write  header  record  to  unit  KLIST:  Station  label,  position, 

origin,  LTYPE,  MHDR,  ICON,  ISHP,  ICAST,  JDAY,  IPR,  LPR.  This  is 
also  done  automatically  in  subroutine  DATA  when  COMPS  accesses  the 
station,  provided  ISSM (11)  »  -1. 


26 


SUMMARY  -  POTEN:PTENS:  KBR  =  8 

Function:  Write  station  header  information 
ISW,  JSW  options:  None 
Output  device:  unit  KLIST 

ISSW  options:  None 

9:  Write  *.REG  or  *.AV6  single  data  record  to  unit  KLIST.  Of 

doubtful  usefulness,  this  branch  was  part  of  the  original  program. 
SUMMARY  -  POTEN: PTENS:  KBR  =  9 

Function:  Write  single  output  data  record  to  unit  KLIST 
ISW,  JSW  options:  None 
Output  device:  unit  KLIST 

ISSW  options:  None 

10:  Not  used 

11:  Set  the  values  of  the  ISSW  array.  One  call  allows  up  to  16 

inputs.  Each  input  consists  of  element  number  followed  by  a  comma 
and  the  value  to  assign  to  that  element.  Whenever  input  is 
complete,  if  less  than  16,  the  branch  may  be  terminated  with  a  /. 
SUMMARY  -  POTEN: PTENS:  KBR  =  11 

Function:  Set  ISSW  array 
ISW,  JSW  options:  None 
Output  device:  unit  KTTX 

Input  device:  unit  KIN 

ISSW  options:  None 

12:  Exit  program.  Program  queries  'Exit  program  '.  A  YES  response 
results  in  a  FORTRAN  stop  statement  execution.  A  NO  response 
returns  the  PTENS  branch  prompt. 

SUMMARY  -  POTEN.-PTENS:  KBR  =  12 
Function:  Exit  program 
Input  device:  unit  KIN 

If  a  value  of  KBR  greater  than  12  or  less  than  0  is  entered,  the  short 
documentaton  is  printed  on  the  screen. 


3.  PEPIT  (Documentation 


Like  POTEN,  PEPLT  is  accessed  through  a  short  main  program,  which 
initializes  parameters  as  requested  by  the  user,  and  then  transfers 
control  to  a  major  subroutine,  PEPLS.  From  PEPLS,  the  user  may  call 
subroutine  TABLE,  which  plots  and  lists  station  by  station,  and 
subroutine  AVR6S  which  computes  and  displays  horizontally  averaged 
quantities  as  a  function  of  depth.  Subroutine  AVRGS  has  its  own  set  of 
internal  branches,  one  of  which  returns  program  control  to  PEPLS. 
Subroutine  TABLE  has  no  internal  branches.  As  in  POTEN,  short 
documentation  can  be  displayed  on  the  screen  while  the  program  is  running 
interactively,  by  typing  tl  as  a  response  to  branch  prompts  in  either 
PEPLS  or  AVRGS. 

3a.  Main  Program:  PEPLT 

The  main  program  queries  'Load  in  previously  stored  common?'.  A 
YES  response  causes  the  elements  of  the  binary  array  KPLCM.DAT  to  be  read 
into  common,  beginning  with  the  common  element  KTTX.  a  'NO'  response 
causes  no  action  by  the  program.  Control  is  then  transferred  to 
subroutine  PEPLS. 

3b.  Branches  -  PEPLT 

1:  Calls  subroutine  TABLE.  TABLE  plots  and  lists  station  by 

station.  It  also  outputs  requested  information  in  a  format 
appropriate  as  input  to  objective  mapping  programs.  The  plot 
section  of  TABLE  is  designed  to  permit  a  number  of  stations  to  be 
plotted  on  the  same  frame,  with  the  origin  of  each  station  within 
the  larger  frame.  Examples  are  shown  in  Fig.  4.  In  Fig.  4a  the 
buoyancy  frequency  N  is  plotted  as  a  function  of  geographical 
position  (relative  to  an  origin  at  37*N,  69.65*W),  the 
coordinates  of  the  frame;  and,  for  each  station,  as  a  function  of 
depth,  where  the  station  axes  represent  0  to  3000  db  vertically 
and  -3  to  3  cph  horizontally.  This  is  accomplished  by  scaling 
the  buoyancy  frequency,  and  adding  it  to  the  X-coordinate  (in 
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Figure  4:  Example  plots  from  TABLE.COM 
4a.  Buoyancy  Frequency,  N  in  cph.  Inset  axes  represent  *3  cph 

(horizontal),  0  to  3000  db  in  pressure  (vertical).  The  origin  on  the 
inset  axes  (0,0)  represents  the  station  location. 
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LDE  FS5  VERTICAL  DISPLACEMENTS.  DB 


KM  EAST  0F  ORIGIN 


4b.  Vertical  displacement  ir  in  db.  Inset  axes  represent  *100  db 
(horizontal)  and  0  to  3000  db  (vertical). 
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this  example,  kilometers  east  of  the  origin)  and  scaling  the 
pressure  and  subtracting  from  the  Y-coordinate  (here  km  north  of 
the  origin).  The  program  allows  up  to  four  variables  to  be 
included  in  such  a  sum  for  X  and  Y.  The  length  of  the  station 
axes  are  determined  by  the  variables  X2DIM  and  Y2DIM,  which  are 
input  in  user  units  (i.e.  cph  in  Fig.  4a)  for  the  variables  being 
plotted.  In  the  example,  Y2DIM  is  3000  (db)  and  X2DIM  is 
3  (cph).  One  frame  is  created  for  each  call  to  TABLE;  it  will 
encompass  ND  station  plots.  The  plot  parameters  may  be 
initialized  by  calling  TABLE  (KBR  =  1)  with  ISW  >  2.  Control 
then  returns  to  PEPLS.  Plot  parameters  may  be  changed  by  calling 
TABLE  with  ISW  =  1.  Control  again  returns  to  PEPLS.  Plotting 
commences  only  when  TABLE  is  called  with  ISW  =  0.  Figure  4b  is 
the  same  type  of  plot  as  4a,  with  vertical  displacements  plotted 
instead  of  N.  Both  of  these  plots  were  created  using  the 
documented  command  file  TABLE.COM  found  in  Appendix  A. 

A  number  of  variables  relating  to  the  leveled  field,  the  inital 
field,  and  the  location,  and  time  of  each  station  may  be  examined 
using  PEPLT.  A  list  of  these  variables  is  found  in  Table  6;  they 
are  computed  in  function  subroutine  VRBL,  coded  by  number.  Thus 
a  call  to  VRBL  (3)  returns  the  latitude  of  the  station  being 
examined  (variable  XLAT).  Subroutine  TABLE  plots  the  following 
for  x  and  y: 

x  =  A1*VRBL(NX1)  +  A2*VRBL(NX2)  +  A3*VRBL(NX3) 
+  A4*C(IREC,1) 

y  =  B1*VRBL(NY1)  +  B2*VRBL(NY2)  +  B3*VRBL(NY3) 
+  B4*C(IREC,2) 

Here  C(IREC,n)  refers  to  an  array  which  may  be  filled  using  AVRGS 
subroutine  (see  branch  4).  A1  to  A4,  Bl  to  B4,  NX1  to  NX3,  and 
NY1  to  NY3  may  be  changed  by  accessing  branch  3.  The  default 
values  (initialized  by  KBR  =  1,  ISW  *  2)  are: 
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TABLE  6  —  PEPLT  Variables 

(Nomenclature  follows  that  of  Bray  and  Fofonoff,  1981) 


VARIABLE 

NUMBER 

NAME  or 

SYMBOL 

UNITS 

DESCRIPTION 

-1 

1 

None 

Returns  the  number  1  (counts 

number  of  observations  at 

each  level). 

4 

4 

None 

Returns  4 

1 

XPL 

km 

Zonal  distance  from  origin 
(XLT0.XLG0) 

2 

YPL 

km 

Meridional  distance  from 

origin 

3 

XLAT 

degrees 

Signed  decimal  latitude 
(south  negative) 

4 

XLONG 

degrees 

Signed  decimal  longitude 
(west  negative) 

5 

ICON 

None 

Consecutive  station  number  in 

POTEN  computation 

6 

WGT 

None 

Averaging  weight 

7 

JDAY 

days 

Julian  year  day 

8 

ISHP 

None 

Ship  code 

9 

I  CAST 

None 

Station  number 

10 

N 

None 

Polynomial  order 

11 

NOP 

None 

Number  of  data  scans  in 

regression  interval 

12 

PF 

db 

Level  pressure 

13 

1  M 

T0 

1 

T,  S,  6  averaged  over  the 

14 

S0 

ppt  1 

10“^cnr*»gm“^ 

interval  PF  *  PDIFF 

15 

DV0 

16 

PI 

db 

Pressure  of  reference  steric 
anomaly  («^)  in  the 
initial  field 

32 


TABLE  6  (Continued) 


VARIABLE 

NUMBER 

NAME  or 

SYMBOL 

UNITS 

DESCRIPTION 

17 

THF 

Cc 

Local  potential  temperature 
referred  to  PF.  (See  65.) 

18 

OVI 

lO'^cm^gm-* 

Initial  steric  anomaly 

on  PF 

19 

DVF 

10-^cm^*gm_^ 

Reference  steric  anomaly  («f) 
on  PF 

20 

PM 

db  ' 

\  Pressure,  local  e,  salinity 

21 

THM 

°C 

and  steric  anomaly  referred  to 

22 

SM 

ppt 

1  Pf  averaged  over 

23 

DVM 

10"5cm3*gm_1> 

regression  interval 

24 

a  * 

Pf 

10~5cm3,gm~^db~3 

d«/dp  based  on  averaged 
regression  coefficients 

25 

X 

Potential  energy  anomaly 
calculated  by  POTEN 

26 

APE 

APE  calculated  by  POTEN 

27  to  34 

CP(1)  to  CP(8) 

(db)"1 

Regression  coefficients  for 

pressure 

35 

Z1 

db 

Standard  deviation  of 
pressure  regression  estimate 

36  to  43 

CT(1)  to  CP(8) 

Cc)’1 

Regression  coefficients  for 
local  potential  temperature 

44 

Z2 

'c 

10_5cm3 .gm"1 

Standard  deviation  of  local 

potential  temperature 
regression  estimate 

46,47,48 

F1.F2.F3 

Minimum,  maximum  and  average 
values  of  steric  anomaly  over 
regression  interval 
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TABLE  6  (Continued) 


VARIABLE 

NAME  or 

UNITS 

DESCRIPTION 

NUMBER 

SYMBOL 

48 

»* 

db 

'Boussinesq'  displacements: 

49 

PI* 

db 

"*  =  -(«i  -  «i)/(^)* 

it*  +  PF 

50 

it 

db 

Displacement  of  initial  field 

from  reference  field  PI-PF. 

51 

A6 

lO^cm^gnT* 

Positive  implies  downward. 

«1  -  6f 

52 

Vortex  stretching 

db 

„TV  Sin(XLAT) 

PIX  STHffiW 

53 

APE| 

g 

'Boussinesq'  APE  with  true 

displacements 

1  *  2 
"2g  V 

54 

55 

APEg 

g 

gPFaD  -  PE 

Boussinesq  APE  with 

(10-^cm^*gm~^)"^db 

Boussinesq  displacements 

1  *  *2 
-  7g  “p** 

56 

E0 

Inverse  of  local  specific 

volume  gradient  with  pressure 

57 

1/E0 

(10-^cm^*gm’^)db-^ 

Local  specific  volume  gradient 
with  pressure 

58 

N2 

10“®(rad  •  sec-^)2 

Squared  buoyancy  frequency 

59 

6P 

*C  db-1 

Potential  temperature  gradient 
de^ 

w 

% 

— 

TABLE  6  (Continued) 


VARIABLE 

NAME  or 

UNITS 

DESCRIPTION 

NUMBER 

SYMBOL 

60 

s„ 

ppt  db“* 

Salinity  gradient 

P 

dSf 

dp 

61 

Sf 

ppt 

Salinity  corresponding  to 
®f»  Pf»  6f 

62 

dSf 

de^ 

PPtfC)-1 

Gradient  of  salinity  with 
potential  temperature 

63 

„2 

(db)2 

Squared  displacement  of 
initial  field  from  reference 

field 

64 

N 

cph 

Buoyancy  frequency 

65 

*C 

Potential  temperature  at 

T 

referred  to  zero 

pressure 

66 

ae 

lO^gm-cm”  3 

3  -1 

cm  *gm 

Sigma  theta  of  Pf, 

Sf,  Of 

67 

I  4 

af 

Specific  volume  anomaly  in 

reference  field 

1  p  2 

Vertical  gradient  of 

68 

~  7  rk* 

compressibi lity  contribution 

to  GPE 

69 

Not  used 

70 

rk 

10"5cm3-  gm-1*db2 

_  (i£)  (see  Bray  and 

<JjT  vap'a  ' 

Fofonoff,  1981) 
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TABLE  6  (Continued) 


VARIABLE 

NAME  or 

UNITS 

DESCRIPTION 

NUMBER 

SYMBOL 

72 

&Sf 

ppt 

Salinity  anomaly  from  cubic 
spline  fit  to 
Worthington-Metcalf  and 

Iselin  e-s  curves 

aS(p^,6^-,S^) 

(Armi  and  Bray,  1981) 

73 

aSi 

ppt 

Same  as  72  but  using  the 

initial  field 
&S(Pife(TQf),S(0) 


74 

•f 

r  c)2 

UO"4  J-kg'1)2 

Leveled  field  potential 
temperature  squared.  (Used 
in  calculating  horizontal 
standard  deviation  using 
AVR6S  branch  ISW  =  21.) 

75 

RME 

Random  measurement  error 

(based  on  pressure  error  of 
*5db  magnitude,  temperature 
error  of  ,007*C,  salinity 
error  of  .005  ppt)  for  APE. 
See  Bray  and  Fofonoff,  1981 
Appendix,  for  details  of 

error  calculations. 

V(ap**2/2) 

76 

Not  used 

77 

RFE 

(10"4  J-kg"1)2 

Same  as  78  but  ir 

78 

RFE* 

(lO"4J-kg-1)2 

Random  finestructure  error: 

(based  on  3xZl  as  error  in 
ir*):  V(op*w*2/2) 
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TABLE  6  (Continued) 


VARIABLE 

NAME  or 

UNITS 

DESCRIPTION 

NUMBER 

SYMBOL 

79 

RME 

(10-4  J-kg-1)2 

(10-4  J-kg-1)2 

Same  as  75  but  pressure  error 
only 

80 

RFEC 

Random  f inestructure  errors  in 

the  vertical  compressibility 
term  (must  be  integrated 
using  AVRGS  branch  ISW  =  17) 

V(  rk*2/2 

81 

RMEC 

(10-4  J-kg-1)2 

Random  measurement  error  in 

the  vertical  compressibility 
term  (pressure  error  only) 

82,83 

Not  used 

10-5cm3-  gm-1*db-1 

84 

K 

*v  JC 

Compressibility  (— )a 

85 

Ks 

10-3cm3-  gm-1-ppt-1 

Derivative  of  specific  volume 

with  respect  to  salinity; 
temperature  and  pressure  held 

constant: 

P,T 

86 

K  IT 

Contribution  to  GPE  from 

horizontal  gradients  of 
compressibility 

87 

APEg 

10-4  J*kg-1 

'Boussinesq'  APE  per  unit 
mass  with  true  displacements 

88-90 

Not  used 

10-3cm3  •  gm- 1 

91 

«i  -V 

92 

1 

(*C)-1 

93 

Not  used 
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TABLE  6  (Continued) 


jL 


VARIABLE 

NAME  or 

UNITS 

DESCRIPTION 

NUMBER 

SYMBOL 

94 

8i2 

Potential  temperature 
corresponding  to  p*  in 

initial  field 

squared 

95 

-(«r  ii)/V 

None 

(if  ei 

is  in  column  4) 

96 

-(ef-  if)/ep ir 

None 

(if  ef 

is  in  column  4) 

97 

ei 

°C 

Local  potential  temperature 
at  <5^ 

98 

Not  used 
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A1  =  1 

B1  =  1 

NX1  =  1 

NY1  =  2 

CM 

II 

CM 

C 

B2  =  -.003 

NX2  =  64 

NY2  =  12 

A3  =  0 

B3  =  0 

NX  3  =  0 

NY3  =  0 

£ 

It 

o 

B4  =  0 

These  values  will  cause  the  buoyancy  frequency  in  cph  to  be 
plotted  as  a  function  of  meridional  position  (y-axis),  time 
(x-axis)  and  pressure  (station  axis).  X2DIM  defaults  to  3  (cph) 
and  Y2DIM  to  3000  (db),  resulting  in  station  axes  representing 
*3  cph  for  the  displacements  and  0  to  3000  db  for  the  pressure. 
The  default  number  of  stations  (variable  ND)  is  1  and  may  be 
changed  by  calling  KBR  =  1,  ISW  =  1.  The  plot  information  is 
stored  in  the  file  corresponding  to  unit  8.  It  must  be  read  and 
translated  by  a  Metacode  translator.  PEPLT  may  be  run  on  any 
terminal,  but  the  translators  are  only  i vail  able  for  graphics 
terminals  and  the  Calcomp  plotter.  See  the  last  part  of  this 
section  for  instructions  on  the  access  of  the  translators.  The 
origin  co-ordinates  may  be  changed  in  PEPLS  branch  2. 

Branch  1  with  ISW  =  0  may  be  used  to  change  PMIN  and  PMAX, 
thereby  selecting  a  range  in  pressure  over  which  data  will  be 
used  (all  other  data  is  excluded),  X2DIM  and  Y2DIM,  described 
above,  JMIN,  the  level  number  corresponding  to  the  pressure  at 
which  the  plot  is  to  start  (this  allows  the  user  to  skip  over 
shallow  points  which  may  have  anomalous  values),  and  various  plot 
parameters.  The  plot  parameters  include  PLABL,  the  overall  plot 
label;  XMIN,  XMAX,  YMIN,  YMAX,  the  axis  limits;  XLABL  and  YLABL 
the  x  and  y-axis  labels,  respectively. 

In  addition  to  plots,  if  ISSW(IO)  =  -1  TABLE  outputs  to  unit 
KOUT  the  following  list  of  variables  in  format  (GF8.3): 

PF,  XPL,  YPL,  ( VRBL ( NV (K ) ),K  =  1,6). 

(See  Table  6  for  descriptions  of  these  variables.) 

If  ISSW(1 2)  =  -1,  a  short  list  of  variables  is  output  to  unit 
KL I  ST:  pressure  (PF),  and  the  variables  x,  y  and  z,  z  given  by 
z  =  C1*VRBL(NZ1)  +  C2*VRBl(NZ2)  +  C3*VRBL(NZ3)  +  C4*C(IREC,3) 


I 


i 


SUMMARY  -  PEPLT:PEPLS:  KBR  =  1 

Function:  Call  subroutine  TABLE  -  multiple  station  plots,  map 
format  output,  lists  by  station. 

ISW,  USW  options:  ISW  =  2  Initialize  plot  parameters 

ISW  *  1  Change  plot,  map 
format  and  list 

parameters 

ISW  =  0  Plot,  list,  map 

format  output 

JSW  No  options 

ISSW  options:  ISSW(5)  =  -1  No  interior  axes  on  plot 
I S SW ( 6 )  =  -1  No  plot 
ISSW ( 10 )  =  -i  List  variables 
I S SW ( 1 2 )  =  -1  List  p,  x,  y,  z. 

2:  Change  data  selection  variables.  Calls  subroutine  to  change  time 

and  space  windows  and  origin  co-ordinates. 

3:  Change  plot  and  list  parameters.  This  branch  prints  a  short 

documentation  on  the  screen  each  time  it  is  called.  Parameters 
which  may  be  changed  and  their  descriptions  are  listed  in 
Table  7.  This  branch  has  internal  branches  1  through  8,  which 
are  prompted  by  '**:  PARAMETERS:  KBR3,  ISW3,  KX,  MV,  MW'.  Only 
KBR3  and  ISW3  have  any  effect  in  this  branch.  KX  is  the  total 
number  of  parameter  input  branches  (5).  To  return  to  PEPLS  from 
branch  3  the  user  must  enter  KBR3  =  1,  ISW3  =  0  followed  by  /. 
This  will  cause  the  new  parameter  values  to  be  written  on  unit 
KLIST,  and  stored  common  to  be  written  to  KPLCM.DAT. 

SUMMARY  -  PEPLT: PEPLS:  KBR  =  3 

Function:  Change  or  list  plot  and  listing  parameters 

ISW,  OSW  options:  None 

Input  device:  KIN 

Output  device:  KLIST 

ISSW  options:  None 


t 

s 


HU*.  •**:*«***»«'-'- 
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TABLE  7 

PEPLT:  PEPLS  Branch  3  Parameters 


VARIABLE 


DEFAULT 


■  i 
■> 


NX1 

NX2 

NX3 

NY1 

NY2 


- 1 

NY3 

0 

NZ1 

25  1 

■ 

F- 

NZ2 

0 

NZ3 

o  J 

t  . 

>■  • 

A1  B1  Cl 

1.' 

i*  . 

A2-A6,  B2-B6,  C2-C6 

0 

- 

01  to  06 

■  s 

TMIN  to  YT 

None 

is 

SMIN  to  ST 

None 

DESCRIPTION 


Variable  codes  for  VRBL  used 
in  AVRGS  and  TABLE  computations 


Scaling  factors  used  in 
AVRGS  and  TABLE  computations 


Not  used 
Not  used 
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4:  Calls  AVRGS  subroutine.  This  subroutine  calculates  horizontal 

averages,  allows  operations  such  as  vertical  integration  and 
column  addition,  multiplication,  exponentiation  and  division. 
There  are  23  internal  branches  in  AVRGS,  accessed  with  different 
values  of  ISW{0  to  22).  These  internal  branches  are  described 
below,  with  a  summary  at  the  end  of  each.  As  an  overview,  AVRGS 
reads  the  requested  data  from  *.AVG  files  into  a  two-dimensional 
array  C(100,6).  The  rows  (1  to  100)  correspond  to  the 
pressure  levels  and  the  columns  to  variables  requested  by  the 
user  and  computed  in  function  subroutine  VRBL  (see  PtPLS  branch 
1  for  a  description  of  VRBL).  As  each  successive  station  is 
read,  the  elements  of  C  are  added  to,  forming  sums  of  all  data 
available  at  all  levels.  These  sums  must  then  be  divided  by  the 
total  number  of  observations  at  each  level,  to  obtain  the 
average  values.  For  reasons  of  flexibility,  the  reading/summing 
and  division  are  performed  in  separate  ISW  branches  within 
AVRGS.  Once  the  array  C  is  filled  (one  column  of  which  must  be 
the  number  of  observations)  and  averaged,  then  a  number  of 
operations  can  be  performed  on  the  averages.  The  remaining  ISW 
branches  of  AVRGS  are  devoted  to  these  operations. 

AVRGS  has  its  own  prompt  'AVRGS:KBR, ISW, JSW.KLIST' ,  and 
control  does  not  return  to  PEPLS  unless  KBR  =  4  ISW  =  12  is 
accessed.  Therefore,  only  four  variables  (or  <  4  followed  by  a 
/)  need  be  input  following  the  AVRGS  prompt.  In  order  to  keep 
track  of  the  operations  performed  in  AVRGS,  if  ISSW ( 2 )  =  -1  the 
four  parameters  are  written  to  unit  4  each  time  an  AVRGS  branch 
is  accessed,  along  with  other  pertinent  information.  This  ISSW 
option  will  not  be  noted  in  the  summaries. 

Branches  in  AVRGS:  (ISW) 

ISW  =  0:  Prints  short  documentation  on  unit  KTTX 
ISW  =  1:  Reads  station  data  into  C  array.  Variables  corresponding  to 
NV(JSW)  to  NV(KLIST)  (maximum  of  six)  are  read  into  columns 


JSW  to  KLIST  of  array  C  for  ND  number  of  stations  from  file 
JSHP.PTN  (logical  unit  12),  starting  with  the  first  station  in 
that  file.  All  data  between  PMIN  and  PMAX  is  accessed  for  each 
station.  The  array  C  is  stored  to  KPLCM.DAT  before  returning  to 
the  AVR6S  prompt.  If  ISSW(15)  =  -1,  the  weights  (WT)  from 
JSHP.PTN  file  are  used;  otherwise  a  weight  of  1.  is  used.  Each 
element  of  C  is  a  sum  of 

C( IREC, I )  =  C ( IREC , I )  +  D ( I ) *WT* ( AV*VRBL ( NV ( I ) ) ) 

+  { BV+C V*VRBL ( NV ( I ) )*VRBL ( NX ( I ) ) ) 

The  default  parameters  are  set  such  that 
C( IREC, I )  =  C ( IREC, I )  +  WT*VRBL(NV(I) ) 

Some  of  the  parameters  used  by  this  branch  may  be  changed  in 
branch  3  of  AVRGS,  and  some  in  branch  3  of  PEPLS. 

SUMMARY  -  PEPLT :AVRGS:  KBR  =  4:  ISW  =  1 

Function:  Read  and  store  data  to  C  array 
JSW,  KLIST  options:  JSW  is  first  column,  KLIST  last  column 
Output  device:  Array  is  stored  to  KPLCM.DAT  for  emergency 

retrieval.  No  other  output. 

ISSW  options:  None 

ISW  =  2:  Zeros  columns  JSW  to  KLIST  of  array  C 

ISW  =  3:  Changes  or  lists  parameters.  Parameters  involved  are  listed 
in  Table  8.  JSW  =  1  initializes  the  parameters  (defaults 
also  in  Table  9)  before  allowing  changes;  JSW  *  0  retains 
previous  values.  (The  first  access  to  this  branch  must 
initialize. ) 

SUMMARY  -  PEPLT: AVRGS:  KBR  *  4:  ISW  =  3 
Function:  Change  parameters 
JSW,  KLIST  option:  JSW  ■  1  initializes 
JSW  =  0  prints  current  values 
Output  device:  KTTX 

ISSW  options:  None 

ISW  =  4:  Average  table:  divide  columns  JSW  to  KLIST  by  column  6, 

which  should  have  the  number  of  observations  at  each  level. 
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TABLE  8 

PEPLT:  AVR6S  Branch  ISM  =  3  Parameters 


VARIABLE  DEFAULT  DESCRIPTION 

( Initialized) 


ND 

1 

Number  of  stations  to  be  processed 

NV(1) 

51 

Variables  to  compute  for  C  array  as 

NV(2) 

68 

VRBL ( NV ( I ) J  in  column  I. 

NV(3) 

86 

See  Table  6  for  VRBL  codes. 

NV(4) 

87 

NV(5) 

63 

NV{6) 

-1 

JREF 

50 

Number  of  levels  to  be  calculated 

JMAX 

55 

Level  number  corresponding  to  reference 
pressure  for  integrations  over  pressure 

NX (I), I =1,6 

0 

Optional  additive  quantities  in  C  array 
element  calculation  (see  text). 

A1 

1.' 

A2 

0. 

X  and  Y  scaling  factors  for  plots 

A3 

0. 

► 

B1 

1. 

Initialized  when  PEPLS  is  called  by 

B2 

responding  YES  to  'Initialize  common  1 

NX1 

12 

Optional  plot  parameters  (see  text  for 

NX2 

0 

AVRGS  branch  ISM  =  7). 

NY1 

19 

NY2 

<7 

Initialized  in  PEPLS  as  above 
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ISW  =  5:  Add  column  JSW  vertically,  starting  from  level  2  and  going 
to  JMAX: 

C(IREC,JSW)  *  C ( I REC  -  l.JSW) 

ISW  «  6:  List  C  array  to  unit  KLIST.  Inlcudes  data  label, 
parameters,  level  number  and  pressure,  and  C  array. 

ISW  =  7:  Plot  one  frame.  Up  to  six  curves  allowed  per  frame.  NCAR 
plot  package  outputs  to  unit  8  a  file  which  must  be  read  and 
translated  into  a  plot  by  a  Metacode  translator.  PEPLT  may 
be  run  on  any  terminal,  but  the  plot  files  may  only  be 
translated  on  graphics  terminals  and  the  Calcomp  plotter. 
Instructions  for  running  the  translators  are  found  at  the 
end  of  this  section  of  the  report.  The  plot  branch  asks  for 
the  number  of  curves  (default  1,  maximum  6),  the  level 
number  for  the  first  point  (default  1),  the  plot  label,  the 
minimum  and  maximum  coordinates  for  x  and  y  (unless  the  user 
opts  to  have  the  NCAR  plot  package  compute  the  scales,  by 
responding  YES  to  the  query  'Use  default  axis  parameters? ' ) , 
x  and  y  axis  labels,  and  the  column  number  to  be  plotted. 

The  program  actually  plots: 

x  =  B1*C( J, JSW)  +  B2*C( J,NX2)  +  B3*PF 
y  =  A1*PF  +  A2*C(J,NV1)  +  A3*C(J,NY2) 

The  default  values  of  the  parameters  plots 
C(J,JSW)  vs  PF  (pressure). 

However,  if  for  example  the  user  wished  to  plot  potential 
temperature  e  vs  salinity  S,  with  e  (VRBL(65))  in  column 
1  and  S(VRBL(61))  in  column  2,  then  the  values  of  the  above 
parameters  should  be  changed  (using  AVRGS  branch  3) 

A1  =  0.  B1  =  1  NY1  =  1 

A2  =  1.  82  =  0 

A3  =0.  B3  *  0. 

The  y-axis  runs  backwards  (maximum  at  the  bottom  to  minimum 
at  the  top)  unless  A1  is  equal  to  0.  An  example  is  given  in 
ENERGY.COM  —  see  Appendix  A. 
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Characters  of  the  user's  choice  which  mark  the  actual  data 
points  may  also  be  plotted  if  ISSW(5)  =*  -1.  Note  should  be 
made  that  these  are  not  centered  characters,  so  that  the 
data  point  actually  occurs  wherever  the  plotter  commences 
drawing  the  character. 

SUMMARY  -  PEPLT:AVRGS:  KBR  =  4,  ISW  =  7 

Function:  Plot  one  frame  containing  up  to  six  curves. 

JSW  option:  JSW  is  the  column  number  to  be  plotted.  It 

may  be  changed  while  in  the  plotting  branch. 
Output  device:  Plot  information  goes  to  Metacode  file,  unit  8. 

ISSW  options:  ISSW(5)  *  -1  plots  character  to  mark  actual 

data  points.  Character  is 
requested  while  in  plot  branch. 

ISW  =  8:  Calculates  gravitational  available  potential  energy  per  unit 
mass  (GPE)  and  per  unit  area  (TGPE),  from  the  horizontal 
averaged  steric  volume  WI  ( VRBL (18) )  in  column  1  and  for 
the  reference  steric  volume  DVF  (VRBL (19) )  in  column  2, 
except  for  a  constant  of  integration.  GPE  and  TGPE  relative 
to  some  reference  pressure  are  calculated  by  subtracting 
from  GPE  and  TGPE  at  each  level  the  value  at  the  level 
corresponding  to  the  desired  reference  pressure  (denoted  by 
level  number  JREF)  in  AVRGS  branch  ISW  =  10.  GPE  is  stored 
in  column  1,  TGPE  in  column  2.  The  units  are  10~^ 

J.kg-*  and  10+^  J.m~^,  respectively. 

SUMMARY  -  PEPLT:AVRGS:  KBR  *  4,  ISW  =  8 

Function:  Calculate  GPE  and  TGPE  except  for  a  constant  of 
integration 
JSW  options:  None 

Output  device:  None  (GPE  and  TGPE  replace  DVI  and  DVF  in 

columns  1  and  2,  respectively,  of  array  C.) 

ISSW  options:  None 

ISW  *  9:  Integrate  over  pressure  columns  JSW  to  KLIST.  This  is  an 
alternate  method  for  calculating  GPE  and  subsequently  TGPE, 
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with  DVT  -  DVF  ( VR 8L ( 5 1 ) )  in  column  JSW.  It  may  also  be 
used  to  compute  the  compressibility  effects  in  the  GPE 
calculation  (see  equation  28  in  Bray  and  Fofonoff,  1981). 

The  integration  is  performed  starting  with  the  first 
element  in  the  column,  and  continuing  to  the  last;  the 
reference  value  must  be  subtracted  in  a  separate  operation, 
using  AVRGS  branch  ISW  «  10. 

SUMMARY  -  PEPLTtAVRGS:  KBR  =  4,  ISW  =  9 

Function:  Integration  over  pressure  (except  for  a  constant)  of 
columns  JSW  to  KLIST 

JSW  options:  Columns  JSW  to  KLIST  are  integrated 

Output  device:  None 

ISSW  options:  None 

ISW  =  10:  Subtract  value  at  reference  pressure  (level  corresponding  to 
JREF )  from  all  other  elements  in  columns  JSW  to  KLIST 
Output  device:  None 

ISSW  option:  None 

ISW  =  11:  Add  up  to  four  scaled  columns,  according  to 
J  =  IREC 

C( J.JCl)  =  CR1*C(J,JC1)  +  CR2*C(J,JC2)  +  CR3*C(J,JC3) 

+  CR4*C( JREF, JC4) 

If  JSW  *  1,  JC1,  CRI  to  JC4,  CR4  are  entered;  no  addition  is 
performed. 

If  JSW  =  0,  addition  is  performed  using  most  recently  input 
parameters. 

SUMMARY  -  PEPLT: AVRGS:  KBR  =  4,  ISW  =  11 

Function:  Add  up  to  four  scaled  columns,  row  by  row 
JSW  Option:  0:  perform  addition 

1:  input  scaling  and  column  parameters 
Output  device:  None 

ISSW  option:  None 

ISW  »  12:  Return  to  PEPLS 
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ISM  =  13:  Multiply  up  to  three  scaled  columns,  row  by  row  according  to 
C(IREC.I)  =  C0N1*C(REC, I )*{ C0N2*C( IREC, J)*[C0N3*C( IREC,K)]} 
If  I  =  -1  no  operation  is  performed. 

If  J  =  -1  then  the  expression  in  {}  is  set  to  1;  if 
K  =  -1,  the  expression  in  [  ]  is  set  to  one,  allowing  one, 
two  or  three  scaled  columns  to  be  multiplied  together.  The 
parameters  may  be  changed  when  the  branch  is  accessed.  The 
default  values  are  I,J,K  =  -1;  CONI,  C0N2,  C0N3  =  1. 

SUMMARY  -  PEPLTrAVRGS:  KBR  =  4,  ISM  =  13 


Function:  Multiply  up  to  three  columns,  row  by  row 

JSW  options: 

None 

Output  device: 

None 

ISSW  options: 

None 

ISM  =  14:  Output  in  map  format  to  unit  KTO.  Branch  requests  output 

file  name  and  level  number  (JREC)  desired.  Variables  output 
are: 

IDSTN  (station  identifier:  ship,  station),  XLAT,  XLONG, 

( VR8L ( NV( K ) ) ,  K  =  1,3),  (C(JREC,K),K  =  4,5) 
in  format  (1H  ,A5,2(F8.2),5F(8.3)). 

SUMMARY  -  PEPLT :AVRGS:  KBR  =  4,  ISM  =  14 
Function:  Output  in  map  format 
OSW  option:  None 

Output  device:  Unit  KTO  (may  be  changed  in  branch;  default 

is  60) 

ISSW  options:  None 

ISW  *  15:  Not  used 

ISM  =  16:  Take  any  single  column  to  any  power,  row  by  row.  Operations 
are  performed  on  the  absolute  value  of  all  elements.  If 
JSW  =  1,  exponent  and  column  inputs  are  prompted.  If 
JSW  =  0,  exponentiation  is  performed.  The  call  to  JSW  «  0 
should  immediately  follow  that  to  JSW  *  1,  as  the  variables 
used  for  exponent  and  column  number  are  not  unique  to  this 
branch. 
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SUMMARY 

ISW 


ISW 

ISW 

ISW 

ISW 

ISW 


-  PEPLT.'AVRGS:  KBR  .  4,  ISW  =  16 
Function:  Exponentiation  of  a  single  column 
JSW  options:  JSW  =  0:  Operation  performed 

JSW  =  1:  Exponent  and  column  entered 
Output  device:  None 

ISSW  options:  None 

=  17:  Integration  of  error  terms:  interval  pressure  squared  as 
the  integration  variable.  This  is  intended  for  the 
calculation  of  measurement  and  f inestructure  errors  in  GPE 
and  TGPE;  as  such  it  may  be  used  on  columns  containing 
averaged  values  of  VRBL  (75  and  77  through  81)  —  see 
Table  6.  This  branch  uses  the  same  algorithm  as  AVRGS 
branch  ISW  *  9,  with  aP^  instead  of  aP  as  the 
integration  variable.  See  AVRGS  branch  ISW  =  9  for  a 
summary. 

=  18:  Writes  into  column  5  the  difference  in  pressure  between  each 
pair  of  levels,  beginning  at  the  top. 

a  19:  Exchange  columns  JSW  and  KLIST. 

*  20:  Input  a  new  single  element  of  C.  Branch  prompts  for  column 
and  row  of  element  to  be  changed. 

a  21:  Compute  the  standard  deviation  and  store  in  column  1  of  any 
quantity  X  for  which  X  (the  average  value)  is  stored  in 
column  4  and  Xc  in  column  3. 

=  22:  Compute  the  dynamic  height  for  each  station  at  any  range  of 
levels  referred  to  level  JREF  and  output  in  map  format. 
Branch  prompts  for  output  device  (default  is  60),  and  level 
numbers  (JREC1,  JREC2)  for  dynamic  height  calculation. 
Reference  level  JREF  may  be  changed  in  AVRGS  branch 
ISW  =  3.  To  calculate  dynamic  height  NV(1)  must  be  18, 

NV ( 2)  19.  Variables  output  are: 

I DSTN  (station  identifier),  XLAT,  XLONG,  Dynamic  height 
(in  dynamic  centimeters),  (NV(K),K  «  3,6). 

Output  occurs  for  ND  stations,  beginning  with  the  first 
station  in  JSHP.PTN  (unit  12). 
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SUMMARY  -  PEPLT:AVRGS:  KBR  *  4,  ISW  =  22 

Function:  Compute  dynamic  height  relative  to  JREF  for  any  range 
of  pressure,  for  each  of  ND  stations  and  output  in  map 
format.  Four  optional  variables  are  also  output,  for 
the  same  range  of  pressure.  An  example  command  file, 
DYNHT.COM  is  found  in  Appendix  A. 

ISW  options:  None 

Output  device:  Unit  KTO  (default  60;  may  be  changed  by  the 

user  when  the  branch  is  accessed). 

ISSW  options:  None 


PEPLT  Branches  (KBR),  continued 

5:  Set  values  of  elements  in  the  ISSW  array.  Up  to  16  inputs  are 

allowed,  each  consisting  of  the  element  number  followed  by  the 
element  value  (-1  or  0).  Terminate  before  16  by  typing  /. 

6:  Restart  main  program. 

7:  Exit  program:  a  YES  response  to  the  branch  query  ’EXIT  PROGRAM  ' 

results  in  the  execution  of  a  FORTRAN  stop.  A  NO  response 
returns  the  PEPLS  prompt. 


Metacode  Translators 

The  translators  for  the  plot  files  (written  to  unit  8)  created  in 
AVRGS  (branch  ISW  =  7)  and  TABLE  (PEPLS  branch  KBR  *  1)  are  device 
specific.  That  is,  each  graphics  terminal  has  its  own  version.  The 
CALCOMP  high  speed  plotter  has  two  versions:  one  with  default  plotting 
parameters,  and  one  which  allows  the  user  to  enlarge  or  stretch  the 
plots,  alter  their  distribution  on  the  plotter  paper,  etc.  The  IMLAC  and 
Tektronix  terminals  also  have  versions  of  the  translator  to  allow  plot 
previewing. 

For  all  translators: 

If  the  plot  file  was  written  to  any  other  file  than  that  named 
F0R008.DAT  (via  an  ASSIGN  statement  before  running  PEPLT)  then  you  must 
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assign  that  ouput  file  name  to  unit  8  before  running  the  translators. 

For  example,  if  your  plot  file  is  named  PLOT.PPT,  you  must  make  the 
following  assignment: 

ASSIGN  PLOT.PPT  F0R008. 

For  the  CALCOMP  (both  versions)  you  must  also  assign  terminal 
TTA4:  to  FOR 061 : 

ASSIGN  TTA4:  F0R061 

Then 

RUN  MCTRNPLOT  (for  MetaCode  TRaNslator  PLOT) 
plots  with  default  parameters,  and 
RUN  MCTRNPLT2 

prompts  the  user  for  changes  in  the  plotting  parameters  before  executing 
the  plots.  MCTRNPLT2  asks  three  questions:  first,  how  many  plots  in  the 
y-direction  (across  plotter)?  The  default  is  1,  and  is  retained  if  a  / 
is  entered.  Second,  what  size  shall  the  plots  be?  The  default  is  10  by 
10  inches.  The  new  dimensions  are  entered  in  inches,  and  need  not  be 
equal  for  x  and  y.  Again  a  /  retains  the  default  values.  Finally,  the 
program  asks  for  the  distance  between  plots,  in  inches.  The  default  is  2 
inches  in  both  x  and  y.  All  plots  in  the  file  assigned  to  unit  8  are 
plotted,  sequentially. 

For  the  Tektronix  (or  the  IMLAC  in  Tektronix  mode): 

RUN  MCTRNTEK 

starts  the  plot  previewer.  If  there  is  more  than  one  plot,  the  program 
prompts  for  continuing  to  the  next  plot  by  asking  'Option  ?'  to  which  the 
user  should  respond  C  for  continue,  until  all  plots  in  the  file  assigned 
to  unit  8  have  been  plotted. 

For  the  IMLAC  (recommended  over  the  IMLAC  in  Tektronix  mode,  since 
it  is  simpler,  and  uses  more  of  the  screen): 

RUN  MCTRNDYN1 

starts  the  plot  previewer.  This  program  also  prompts  for  continuation  if 
there  is  more  than  one  plot. 

This  translator  information  is  accurate  as  of  December  1980.  If 
you  encounter  difficulties  you  should  refer  to  the  current  VAX  manual. 


4.  Modification  of  POTEN  to  accept  input  CTD  data  in  other  than  CTD78 
disc  format. 

This  section  is  intended  as  a  guide  to  assist  users  who  wish  to  use 
POTEN  on  CTO  data  with  formats  other  than  that  read  by  the  standard 
version.  In  this  section  the  header  information  required  by  POTEN  is 
described  in  detail,  and  the  procedure  for  reading  data  is  explained. 

The  only  subroutine  which  must  be  changed  is  DATA,  providing  that  the 
input  data  is  an  even  series  in  pressure  with  no  gaps. 


DATA  requires  the  following  header  information  for  each  station: 


Description 

Variable  Name 

Format 

Ship  Name 

ISHP 

A2 

Cruise 

ICRUIS 

A3 

Station 

I  STAS 

13 

Decimal  Latitude  (south  negative) 

XLAT 

F 

Decimal  Longitude  (west  negative) 

XLONG 

F 

Day 

IDA 

12 

Month 

I  MO 

12 

Year  (last  two  digits) 

IYR 

12 

Time  (24  hour  clock) 

ISTME 

14 

Station  Label 

LBBL(3) 

3A4 

Minimum  Pressure 

PM IN  or  IPR 

F  or  I 

Maximum  Pressure 

LPR 

I 

The  CTDATA  library  subroutines  not 

disc  version  of  CTD78  are: 

needed  for  formats  different 

from  the 

PVER 

CRUISE 

Header  Information 

STATION 

0ATI0X 

Data  Retrieval 

GET DAT 

Also,  the  common  file  IOXREC.DIM  should  not  be  included  in  DATA  — 
see  the  statement  INCLUDE  'IOXREC.DIM'.  The  variable  LLREC  is  the  total 
number  of  stations  in  the  subindex  directory;  all  statements  in  DATA  and 
COMPS  which  refer  to  LLREC  may  be  deleted.  The  data  are  stored  in  arrays 
PRESS  and  DATAX. 


Pressure  is  stored  in  PRESS, (  #),  temperature  in  DATAX(1,  #), 
salinity  in  DATAX(2,  #)  with  #  the  data  scan  number.  Subroutine  DATA 
must  fill  DATAX  and  PRESS  (all  scans)  when  it  is  called  for  each 
station.  Finally,  DATA  must  return  to  COMPS  the  total  number  of  data 
scans,  JRMAX. 

Stations  are  selected  by  the  call  to  DATA  in  COMPS.  The  call  is 
CALL  DATA  (KST.l) 

In  COMPS,  KST  is  the  sequential  number  in  the  DO  loop  from  ISW  to 
JSW  in  branch  1  (or  13).  If  the  input  data  is  on  magnetic  tape,  the  user 
may  wish  to  change  the  DO  loop  in  COMPS  to  go  from  1  to  JSW:  that  is, 
start  at  the  beginning  of  the  tape  and  read  through  ISW  stations. 

The  section  of  DATA  in  which  the  ship  and  cruise  specification  may 
be  changed  (NSW  =  2)  can  be  readily  modified  to  accept  similar 
information  (in  branch  13)  pertinent  to  the  user's  input  data. 

The  header  information  should  be  read  in  following  statement  #5, 
replacing  the  statements  between  #5  and  #54.  The  data  should  be  read 
in  in  statements  which  replace  the  calls  to  DATIDX  and  6ETDAT. 
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Appendix  A 

Example  command  files  for  different  routine 
calculations  using  POTEN  and  PEPLT. 

In  this  appendix  documented  command  files  which  perform  various 
routine  calculations  are  listed.  In  the  order  in  which  they  appear  they 
are:  ENERGY.COM,  POTEN.COM,  PEPLT.COM,  TABLE.COM,  and  DYNHT.COM.  Brief 
descriptions  of  these  files  are  also  found  in  Table  2.  The  files 
themselves  contain  detailed  documentation.  Example  plots  from  ENERGY.COM 
are  also  included:  see  Figures  5  to  12.  Example  plots  from  TABLE.COM 
are  found  in  Figure  4. 
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5  1!  ******♦**♦♦♦♦  ENERGY.COM  *♦♦♦♦**'*♦♦**** 

10  i!COM«ANO  FILE  TO  COMPUTE  APE  FROM  CTD78  FORMAT  DATA.  CREATES 

— i-g - TTTnremnm  printout  amp  plots."  ru  tended  ~vs  AwinriN  learning 

26  4M0  USF  THE  VAX-11  PROGRAMS  POTEN  AND  PEPLT. 

34  *14  JULY  81.  NAN  BRAY 

42  $• 

SO  iSFT  OFFAUIT  0BA2  :<H6316.U>E> 

100  iASSrCN  JSHPE5.PTN  F0R012  !  E I LE  TO  BE  CREATED  BY  POTEN  CONTAINING 

T515  _  STATION  IDENTIFIERS. 

200  i ASS  f ON  PRINT. PTN  FOR004  !F ILF  FOR  LfNEPRINTER  OUTPUT  FROM  POTEN 

300  RUN/NODFB  POTEN 

400  YES  TNTTIALIZE  COMMON 

500  NO  DO  NOT  INITIALIZE  RF(3RESSI0N  PARAMETERS 
600  2.5  I  PRESSURE  INTERVAL  FOR  INPUT  DATA 

'  TOO - TTTTT7V7 - MET  PARAMETERS 'FOR  REGRESSION - 

800  *•«••?./  MET  PO IFF  TO  20B — INTERVAL  OVER  WMICH  TO,SO,DVO  AVFRAGFO 

000  /  'On  NOT  CHANGE  HELP-PRESSURE  INTERVAL  FOR  INPUT  DATA 

1000  NO  00  NOT  CHANGE  REGRESSION  PARAMETERS 

TTOO  /  !  LV AVF  time  WINDOW  AT  DEFAULT  0-3650AYS 

1200  /  ! LEAVE  FAST-WEST  SPACE  WINDOW  AT  DEFAULT:  -180,180  DEG 

T7UU - 7 - TTTTVE  ~  W0R7TT=5U0rTH  SPICE  HTWPDW  AT  WF  AUUT 0  TTFg 

1400  YFS  CHANGE  DATA  LABFL 

T SCO  LOF  PS5  TEST— STANDARD  VFRSTON,  NEW  EOT--? 2  JULY  81 

1600  11/  MET  ISSW  ARRAY 

T800  11,-17  !L  1ST  STATION  TNFOIMATIlW^TrriJNrTT'XLTST  IETLF  FRTNT.TTN) 

1850  11/ 

-TWO - 17,0/ - ron  NOT  ri  ST  RCORCSSfON -SUMM,ART~AT  EAtM  DEPTH  FOR  EACH  STATION 

1950  11/ 

2000  17,-1/  *  CREATF  *.RFG,*.AVC  FILES 

2050  11/ 

7100  6,0/  TOO  NOT  LIST  INDIVIDUAL  INPUT  DATA  SCANS’ 

7150  11/ 


IYJ  ,07  *un  NTj  I  L  111  rSS  I  UN  TUFF  Fit  TENTS  FUR  EACH  Lc*rL 

2500  1, 229,236, 5/IUSING  OFF  CRUISE  SPECS,  REGRESS  STA  REF  •  ISW  TO  JSW 

7660  17,7Ol,'708,6/  'CHANCE  THE  CRUISE  SPECSf  THEM  AS  IN  PREVIOUS  COMMAND 

7675  W  'SUBDIRECTORY  VERSION 

7690  TSO0T007  T SHIP ,  CRUISE",  PROJECT  NUTTER - 

2900  11/  'RESET  ISSW  ARRAY 

7000 - TTV-T 7 — 'LIST  AVER AGCO  REGRFSSTON  COEETTCTENTS - 

3100  *,1,0,4/  'PROCEED  THROUGH  ENTIRE  AVERAGING  PROCESS.  LISTS  TO  PRINT. PTN 

7200  17/  7FXIT  PROGRAM? 

3300  YFS 

^3400  S  ASSIGN  PR  TNT  .PET  FORDO*  mSTTNG  FTtE  FOR  FCPtT  OUTPUT 
3500  SASSTON  PLOT.PPT  EOROD8  • NC AR  PLOT  FILE  FOR  PFPLT  PLOTS 

3600 - HUN/NnOEB  FEFD - 

3700  NO  DO  NOT  RFAO  IN  PREVIOUSLY  STORED  COMMON 
7000  YES  TNTTIALIZE  DATA  SELECTION  PARAMETERS' 

3900  5/  MET  TSSW  ARRAY 

4000  7,-1/  'LIST  OPERATIONS  PERFORMED*  TN  PRINTS PPT 

4050  5/ 

4100 - Tr-T7 - 'PLOT  CHARACTERS  ON  PLOTS  FOR  t  DENT  TET  CRT  TON - 

*700  4, 7, 1,6/  'ZERO  C  ARRAY  IN  AVRGS.  PROGRAM  CONTROL  NOW  IN  AVRGS. 

4700  433,  Vt  'SET  VARIABLE  SELECTION  PARAMETERS' 

4400  1000, V,,,,, 50/  'CHANGE  1000  TO  •  GE  STATIONS  IF  NO  <  ALL 

4700  /  *00  NOT  CHANGE  AV  THROUGH  NXIU  ' 

4600  /  ! DO  NOT  CHANGE  Al  THROUGH  B3 

4 TOO - 7 - rOTT  NOT  CHANCF  NT1  YKRCOGH- NY2 - 

4800  4 , 1 , l V6  'READ  VARIABLES  AS  SELECTEO  INTO  C  ARRAY. 

4000  4,4,r,4  'DIVIDE  COLUMNS  1-5  BT  6T NUMBER  "OF  STATIONS!  TO  AVER  AGE 

5000  4,6, 1,4  ! WR ITE  C  ARRAY  TO  PRINT. PPT 

MOO  4,9VTV3  'INTEGRATE  COLUMNS  t-^7  WITH  RESPFCT  TO  PRESSURE ~  - 


T7D0 

5325 

5400 

5500 

5600 

5700 

5500 

6900 

■6000 

6100 

6200 

6300 

6600 

6600 

TWO" 

6700 

6500 

6900 

7000 

7100 


7<»00 

5000 

8100 

8200 

8300 


8500 

5600 

8  700 
5800 
8900 


9100 

W?00 

9300 

9600 

9500 


9700 
9600 
99 00 
10000 
10100 


10300 

ro6oo 

10500 

10600 

10700 


t  unuu 

10900 

trooo 

moo 

11200 


4,10,1*3  'SUBTRACT  FRO*  ALL  LEVELS  THE  VALUE  AT  LEVEL  JREE 
4,6, 1*4  'WRITE  C  ARRAY  TO  PRINT.PPT  _ 

4,6, 1*4  'WRITE  C  ARRAY  TO  PRINT.PPT* 

4,11*1/  'RESET  A f>f> f T I'VE  CONSTANTS 

1,1. *2 Vl. *3,1. ,4,0.  'REPLACE  COMPRESSIBILITY  TERNS 

4,11 #07 

4,16*1/ 

“.5T5“'TTS5F  C0CTT5N  5  TTYTRF~  PTTWFR  T5 - - - - 

4,16,0/ 

4,6, 1*4  'WRITE  C  ARRAY  TO  PRINT. PPT  - 
4,7/  fCALL  PLOT  BRANCH 

4,3  1 4  PLOTS  IN  THIS  FRAME*  STARTING'  AT  LEVEL'S  ON  EACH 

YES  INPUT  NEW  PLOT  LABEL  _ 

4*0  00  NO  USE  OF E AULT  AXIS  PARAMETERS 
-20,700,0*3000  •X«IN*'XNAX,YMiN,YMAX 
YES  CHANGE  X-AXIS  LABEL 
APE  iOM/SFf I  4*2 
YES  CHANGE  Y-AXIS  LABEL' 


nn  aim t  , 

•PLOT  COL  1 

!  *  TS  PLOT  CHARACTER  I  IDENTIFIER  INOT  CENTERED'! 
!PT.nT  COL  2 

•PLOT  COL  3 


4  'PLOT  COL  4 
X 

4,7/  'CALL  PLOT  BRANCH  FOR  NEXT  PLOT 

1*1/  *T  PLOT  IN  THIS  F3UME;  STARTTNI?  AT  LEVEL  l 

NO  00  NOT  CHANGE  PLOT  LABEL 


0,100*0*  3000 

YFS  CHANGE  X-AXIS  LABEL 

RMS  OTSPLACFHENTS,  OB 

NO  OTT  WOT  CHANGE  Y-AXTS  LABEL 

6  'PLOT  COL  5 


♦ 

4, 2*1*5  '/FRO  COLUMNS  1-5  OF  C  ARRAY 

4,3,0/:  fRESET  SELECTED  VARIABLE  BA1CAWETEPS  »  LEIWINC  0THER5  AS  BEFORE 
,50,61*65,64,19/ 

/ 


4,1, 

4,4, 

4,6, 

4,1? 

5/ 


* 

4,7/ 

1,1/ 

NO 

NO 

34.8 


1,5  'READ  VARIABLES  INTO  COLUMNS  1-5; START  AT  TOP  OE  JSHP.PTN  LIS 
1,5  »OTVTOE  COLUMNS  T-5  BT  WUH6EW  OF  STATIONS  -  J 

1*4  'WRITF  C  ARRAY  TO  PRINT. PPT 

/  fRETURN  CONTROL  TO  PTPLS - 

•SET  ISSW  ARRAY 


:  i  <i  I'irn  i  in  riui  j 

fCALL  PLnT  BRANCH  FOR  NEXT  FRAME?  SEE  EARLIER  DESCRIPTION 


,36.8,0,3000 


SALINITY,  PPT 
NO 
2 

4,7/ 


Wl'l'MMVIU 


11*00  2,??, 0-1000 

II TOO  YF 

11S00  POTENTIAL  TEMPER  ATURE *  OEG  C 
11O00  NO 
12000  1 


100  4, 

12200  1*1 
T7100  NO 
12400  NO 
17500  0,4,0,1000 

12600  YE 


;  12800 
17000 

i  liooo 
i;  moo 

S  11200 


11400 

15500 

11*00 

T770U 

11*00 


14000 

14100 

14200 

14^00 

14400 


40,220,0,1000 

YF 

OELTA-F,  1E-*  CM**3/GN 
W 


UMiJilLliUi; 


! NOW  GOING  TO  PLOT  SITHETAI  RATHER  THAN  SIP),  CHANGE  Al,A? 


14*00  NO 
1 4  TOO  NO 

14*00  14.8 -16.8,2,22 

14900  YT 

1*000  SALINITY,  PPT 
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1*200  POTENTIAL  TEMPERATURE,  DEG  C 

15700  2  - 

15400  4,7/  ’CALL  PLOT  BRANCH  FOR  FINAL  FRAME?  DEEP  THETA-S 

T550TJ  1,77  -  - - - - 

1*600  NO 


l  4  f  oo 

1**00  14. 01,1*. 01, 2. 6, 4. 8 

15900  NO  -  - 

16000  NO 

T6T00  2  - 

16200  4,12/  'RETURN  CONTROL  TO  PFPLS 


16400 

16500 


SPRINT/OEL  PRrNT.PTN,PrRTNT.PT»T 


4 


6 


18 


20 


22 


8  10  12  14  16 

PATENT I RL  TEMPERATURE.  OEG  C 


Figure  8:  Example  plot  from  ENER6Y.COM 
Potential  temperature  in  *C  averaged  along  adiabatical ly 
leveled  surfaces. 


.5 


1.0  1.5  2.0  2.5  3.0  3.5  4.0  4.5  5.0 

N.  CPH 

Figure  9:  Example  plot  from  ENERGY.COM 
Buoyancy  frequency  N  in  cph  averaged  along  adiabatically 
leveled  surfaces. 
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1 


LDE  FS5  TEST  0F  STANDARD  VERS10N 


PATENT I AL  TEMPERATURE.  DEG  C 


LDE  FS5  TEST  0F  STANDARD  VERSI0N 


Figure  12:  Example  plot  from  ENERGY.COM 
Deep  potential  temperature  vs  salinity. 
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50  ♦♦♦♦♦♦♦*♦*♦**  POTFN.Cn*1! 


100  »!TASK  IS  TO  SFT  UP  PARAMETERS  FOR  AN  INTER ACT  I VE  RUN  OF  POTEN 
110  TIE  INAL  INSTRUCTION  IN  THIS  CON  FILE  CHANGES  KIN  TO  ft*  THEREBY 
120  %  *  PE  T1JRNI NG  CONTROL  TO  THE  TERMINAL. 

130  1! 

200  SftSSYGN  PRINT. PTN  E0R0O4 

“YOO  TASSIGN  JSHPFS5, PTN  *»OROi>  ! CHANGE  JS  HP F  S  5  TO  CORRECT  STATION  LIST 

500  RUN/NOOFP  POTEN 


700  NO  00  NOT  INITIALISE  REGRESSION  PARAMETERS 


716  2.5  TPRFSSURF  INTERVAL  FOR  INPUT  DATA 


1200  0  ««.*■«•  6/  !  CONTROL  NtlW  RETURNS TO  TERMINAL  FOR  INTERACTIVE  SESSION 
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5  1!  *************  PEPLT.CON  ♦♦**♦♦♦***♦♦♦♦ 

10  4  !  T  A  9K  IS  TO  SFT  UP  RARANFTERS  FOP  AN  INTERACTIVE  PUN  OF  PFPLT 


■  _  |n  i  t ■ii  in  n  in  Mi  l i.irt u*,tb 


tv  »  .  un  j  i  j  i  n  i  t  nt  '  t  n  i  n  i  J  t,  u  n  rite  t  n  unvju  j  in  iv  ii  v  i  ntwen  i 

30  4'RETURNINC  CONTROL  TO  THE  TERMINAL. 

ATI  1! 

100  4ASSIGN  JSHPF5.PTN  F0P012  ! CHANGE  JSHPF5  TO  CORRECT  STATION  LIST 

“125  VAS5TCT  P1T1T.PPT  TfJROOP  ! P1T0T.TPT' T5 ~N F T I CUHE  FILF 

ISO  4ASSICN  PRINT. PPT  FQR004  JPRINT.PP'T  IS  LIST  FILE 


til  uiOUti 


300  NO  00  NOT  READ  IN  PREVIOUSLY  STORED  COHNON 
500  YFS  WUtALIZF  DATA  SELECTION  PARAMETERS 

600  4,?, 1,6, ,,6/  'CONTROL  NOW  RETURNS  TO  TERN! NIL  FOR  INTERACTIVE  SESSION 
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50  S!  *•*»*♦*♦♦*♦♦♦  TABLE. CD*  ♦*♦♦♦♦♦♦♦♦♦♦♦♦ 

100  $ ! T  ASK  IS  TO  TOFATf  TWO  PLOTS  CORRESPONDING  TO  FIGURES 

— 7uu — rrr-fvjr  5  rtf  wnmvfwrr  blue-  tovfv  tfeptirt;  twf~ftrtt 

300  \'F1GU»E  IS  BUOYANCY  FR’EQUFNC  Y  N  AS  A  FUNCTION  OF  DEPTH 
~  ADO  i'AWB  POSITION.  THE  SECOND  IS  VERTTCAt  0! SPL AITEWENT. 

500  S'POTH  A® F  CREATED  USING  TABLE  SUBROUTINE  OF  PFPLT; 

ROD  SITHE  FIRST  FIGURE  USES  THE  OEEAULT  PLOT  SPFTT FT CAT  IONS . 
700  $  ASS  TON  PLOT.PPT  FOR008 

- BOO - STVSTUN'JSHPFS.PTN  FUB01? - 

900  RUN/NOOFB  PFPLT 

1000  NO  DO  NOT  READ  IN  PREVIOUSLY  STORED  COMMON 
1100  YFS  TN1TIALI7E  DATA  SELECTION  PARAMETERS 
1700  1,?/  'INITIAL! 7E~  PLOT  PARAMETERSTN  T  ABLE 


1300  16/  IPNTFR  NUMBER  OF  STATIONS  IN  PLOT 

— n5o — 57 - rrirnTST  itvel  "pldttfd - 

1 AOO  YES  INPUT  NEW  PLOT  LABEL 

1500  LOF  FS3:  n,CPH 

1600  NO  00  NOT  USE  DEFAULT  AXIS  PARAMETERS 

1700  /  !U3F  THESE  *TN  ANO  MAX 

l BOO  YES  CHANGE  X-AXIS  LABEL 

- nroo - n*  fatt  of  ttrtgtw - 

70 00  YES  CHANGE  Y-AXIS  LABEL 

7100  K*  NORTH  OF  ORIGIN 
2700  1,0/  'PLOT 

7300  1,1/  TCHANGE  PRRAWFTEPS  FDR~  5FCUND  PLOT 

2 AOO  16, ,,100,3000/  1100  IS  DISPLACEMENT  AXIS  IN  OB 

- - T7 - 

2500  YFS  CHANGE  PLOT  LABEL 

7600  LOF  FS5:  VFPTTCAL  01 SPL ACE HE NTS,  OR 

7633  NO  00  NOT  USE  OEEAULT  AXIS  PARAMETERS 

7666  /  !USE  THESE  NrN,PAX  VALUES 

2700  NO  00  NOT  CHANGE  X-A*T5  LABFL 

- Tirtro - nit  o  or  not  change  t=dc rs  xabft: - 

?B l 6  5,3,0/  'CHANGE  PLOT  PARAMETERS — AVRGS 

ZBT7  / 


2868  / 

7P66  ,.05/  IRESCALF  DISPLACEMENTS 

7880  ,50/  'PLOT  DISPLACEMENTS  RATHER  THAN  N 

7W97J - TTT77 - TITTUP  N  TTT  PEPLS - 

7900  1,0/  'PLOT 

TOOU  7/  rEXTT  PROGRAM  .  -  . 

3100  YFS 


r»  *♦**♦#**♦**♦**  dynht. com  *♦*♦*•***«>*** 

♦ ! TASK  rs  TO  CREATE  RPC?  COMPATIBLE  OUTPUT  FRO»  *.AVG  FILES  AT 


||i|  ■  |  J  t  A  fl 


TOO 

WOO 

<>00 

1WO 

1100 


1250 

T?uo 

1A00 

3ATT0 

3500 


3700 


1 ! XLONG*OYN  HT  REF  TO  PF  AT  LEVEL  S0^T0*S0,R6P  SPECIFIC  VOt.TIWE 
SrrjUUTAN  DAYS  FROM  1  JAN+DFCTKALHOURSTTFURKATIS 
t'lH  VA5,IA*2F(8.?).5F8.3>  28  PAY  81  NAN  BRAY 

♦TNUWRFR  OF  STATIONS  OUTPUT*  OUTPUT  YART1TUF5Y  AND  REFERENCE  PRFSSURE 
t ! FOR  DYNAMIC  HEIGHT  PAY  BF  CHANGFO  IN  AVRGS  BRANCH  3. 


•  ;  U  I  IV.  nc  iun  i  1 1  u  I  r  y  i  i  i  u  lupni  L  Llui  Inc  ICR}| 

t! 

♦  ASSIGN  JSHPFS.PTN  FQR012  ! CHANGE  jSHFES  TO  IPPROPR I  ATE  STATION  LIST 
RUN/NUOEB  PEPLT 

Nn  no  NOT  RFAD  IN  INITIALIZED  COMMON' 

YF  INITIALIZE  OATA  SELECTION  PARAMETERS 


•t  «  r  *  i  *of  :tc«u 

A  *  3  »  l  /  ! SET  OATA  VARIABLES 

1000*18*19. 13, 1A, 10, 7, 50*55/ 

/  _ 

/ 


YES  INPUT  NEW  EILF  NAME 
TFST.UAT  “ 

15*  l  7  fRANGE  OF  LEVELS  FOR  WHICH  DH  WILL  BE  OUTPUT 

A, 1 7f  IRFTURN  CONTRA  TO  PFPLS - 

7/  !EXIT  PROGRAM? 


SSORT/K FT ■(POSITION:? *S I ZFS6)  TEST. OAT  TESTP.OAT  ! SORTS  BT  PRESSURE 


_ ■  “■  ' '  *•  -  '  *****  ^  ' 
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50  POTEN*  PTENS:  SHORT  DOCUMENTATION 


100  KB#  1SW  JSW  KLIST  DESCRIPTION 

~T50 - 0  -  - - - - SHORT  50Cu«EN?m0N - 

200  1  «  -  -  COMPUTE  REGRESSIONS  F-OR  ISW 

100  SEQUENTIAL  ST  ATT  TONS. 

AOO  2  INITIALIZE  DATA  SELECTION 

100  PARAMETERS. 

*00  3  0  SET  PARAMETERS*  SHORT  LTST. 

TOO  I  - - - - S  ET-  FIRTUFTFUTT  RJLTT  TT5TT" 

800  STORES  COMMON  IN  FILE  RPTCM 

QOO  A  l  -  LU  A VRCP  AVERAGING'  SUBROUTINE. 

1000  5  _NtTTJZSED 

TiOO  6  -  -  -  LIST  LABEL 

1300  7  NOT  USED 

rtrrn  *  - - - - - - 1  i\i  wcrrmy  *  tub  h  a  tt  ww - 


1500  R 
1*00  10 
2000  11 
T7 


LIST  OATA  RECORD. 
NOT  USED 

SET  tSSN  f SWITCH) 
T5TTT  PROGRTN. 


ARRAY. 
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93  C  CONPOTEN.FOR  FILEi  OlMENSl ON, COMMON  AND  EQUIVALENCE  FOR  POTFN 
96  C  AVAILABLE  POTENTIAL  FNERGV  PROGRAMS.  N. BP AY 

- ^ - c - 

100  PARAMETER  KCM-  ?35 

700  BYTE  LBtPROVER 

BOO  C 

4T3  C  DIMENSION 
466  C 

~*>UU - 0T8FNSTTTN  KHOGTTWJ  ,KBUF  ( 46 1  ?V* ITI - 

600  DIMENSION  KPTCNI KCM ) 

650  DIMENSION  PRESS  I  33001 


- CTITKWTTNnrTYPTiTIflrniTVr  CffN  1 1  SWP'iKC  ASTV  DlY'rrPPTTFR1 

COMMON  XLAT,XLQN<J,W6T,XLT0,XLG0 

COMMON  LBBLfSl  a%L’«  lff  ,NSC<6?rryNBft(60)  ♦WSECt  lON 

8FGTNNTNG  OF  DATA  BUFFTR  XBUF  . 


700 

716 

737 

750"* 

775 

BOO 

825 

170 

875 

“W 

1000 

noo 

1125 

TT5TT 

1175 

-rrotr 

1300 
T  BOO 
1500 
1600 
1700 
"T  TIT 
1724 
1716 
1750 
1B0TJ 
1850 
1856 
1959 
1862 
1874 
1886 
2000 
"7100 
2200 
2100 
2400 
2475 
2450 
-24T9 
2500 
751T 
2566 
7600 
2700 
?750~ 


C 

C 

C 


C 

C 

C 


BLINK  COMMON 

- CTJWNWHnrr - 

BEGINNING  OF  STORED  COMMON 

COMMON  K T T X , KL t $ T * KOOT, KTP ,TSW,JSH ,  K  B  R 

BF GINNING  OF  HE A DEI 


C 

C 

C 


CONMOur  KTYPF  VMgTUFVT  RFC  «NtNDPiKSW»'Ll  »L2 
COMMON  PF,TO,SO,‘OVO 

CON* ON  P  T  *  THFYTFSDVF'  - - 

Ca**riN  PM,  THM,SN«OVM 
COMMON  OH,TF,XFF 

common  CP<8),Zl,CTf8),2?,Fl.F2,F3 


~r 

c 

c 


c 

c 

c 


FND  OF  KBUF 

COMMON  DFLP, OP 

COMMON  A1,A?*A3,N1,W7VN1 - 

COMMON  C  ( 6  )  ,  I STNM61 

- COnwon  TTRUTS  ,TPRtTJ,PRUVFR - 

COMMON  JM AX 

FNO  OF  S TOR FO  COMMON 

COMMON  PI  3300 >,T( 3300)  ,S f 3300) ,OVt 33003 


COM  MON  T  H I  3  3  00 1 « P  T I J  3  0  0 ) , n  O  100 I - 

COMMON  BI8)  ,BP<8),BTm,BA(8),CQ<36),MRt8) 

COMMON  EYI6), JEYI6)  - 

COMMON  WTI600I , JSHP 1 600) 

COMMON  0AT»Xf33-00,Gl?)  ~  - 

COMMON  JSTN, JRMAX,Ml,M2 

COMMON  tLRge*KXrr - 


c 

c 

c 


FtnmrALFNCE 

FOUTVALFNCF 

fouivalence 
- foittvacfncf 


I X  FTTG,L  TYPT  T  ,  TICBOF  iBCTYP  F  ) 
<P01F»FtAl)  ,CVR,PF)^IKTTX,KPTCN) 

I PRF5  S ,OAT IX I - 


2B00  C 


1  100 
200 

c 

c 
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INDEX  RECORD  FtfLOS  DECOMPOSED 

USES  LABELLED  COMNDM  X  USE  INCLUDE  STATEMENT  TO  MERGE  INTO  PRODS. 

300 

C 

RON  MAR  27  1980 

600 

c 

ARRAY  IOXREC  CONT»rNS  THE  INDEX  RECORD 

500 

c 

ALWAYS  THE  FIRST  RECORD  OF  A  DATA  FILE 

-  R - 

■4  600 

c 

IOXREC  HAS  THE  SANE  STRUCTURE  IN  THE  SUBINDEX  FILE 

'  700 

800 

c 

COMMON/ TNOX/  I0XRECI256I 

• 

1000 

1100 

1200 

TWO 

1*00 


1500 

1600 


1800 

'1000 

2000 


2200 

2300 

2600 

2500 

2600 


e  r\j\j 
2800 
TWO 
3000 
TOO 
3200 


J  J  vu 

3600 
“  7500 
3600 
~  T700 
3800 


6000 

6100 

6200 

7700 

6600 


C  LPGVER  IS  AN  ACSII  DESCRIPTION  OF  LOAOING  PROGRAM  VERSION 

INTEGER  LPGVERf 6),LSTREC 

€*«*»**«** ******  I************************************************ 

C  L 0 AFP  AND  LTtNE  CONTAIN  ASCII  0 ATE  STfMF  FILE  CREATED 
INTEGER  L0ATE(3)VLTfHEI2l 


VtCE  ANO  EILSPEC  EURO  A  COMPLETE  FILE  SPECIFIER 
INTEGER  FILSPECf 8I*0EVICE 

C  IFWEO  ARRAY  HAS  THE  SAME  STRUCTURE  AS  CTDT8  VAX  FORMAT 
INTEGER  IEHEDIOO) *ICMNTf 35» 

C  CNTRL  HAS  THE  LOCATIONS  OF  THE  BEGINNING  WORD  OF 
C  INFORMATION  FIELDS  0*  THE  INDEX  RECORD 


INTEGER  CNTRL (6  V 

C  VARDES  ARRAYS  CONTAIN  ABREVTATEO  VAR  TABLE  DESCRIPTORS 

C  MIN/MAX  VALUES  IVARDFS  CONTAINS  MNEMONIC  IDENTIFIERS 
dimension  VaROESI 6 tl6 )  *  I VAROEST 6*161 

EQUIVALENCE  C  KFYWO* I0XRECI1II 


LSVRFC  IS  THE  NEXT  AVAILABLE  RECORD  IN  STJB INDEX  FILE  1ST  REC.  ONLY 

FOUt VALENCE  f  LSTREC* IOXREC (91 I  -  - 

EQUIVALENCE ( TFNEOI 1 1  *  I OXREC 1 13 II 

EQUIVALENCE  I  VAROESI  IY1  >  ,  fDXR'EC  f  llSTT*  I  fVAR  DFSl 1 i 1 IVIDXREC  « 1 15 1 1 
EQUIVALENCE  (XSCAN,  IOXREC  1 105U 


tat>liAUJ«aik*:MC4:iH4Uri 


EQUIVALENCE  CMSCA^IOXAEC 1 106 M  VINSCANS *.!DXREC  11121 » 
TOUT  VALENCE  (  PMTN/TOYRE  CfTIOTV*  IP  RS I  NT,  TTTTREC  fllTIT 
EQUIVALENCE  I NTOTt IOXREC (108  I ) 

EQUIVALENCE 


2*(IEHE0(7)*IYRI*'(  IEHEO I  8 1  ,IMO)  ,<  rFHEOI  VI  ,’TDA ) 

3*1  If  HEDIITT*  TL'TSOl*  CTEHEDTT2TirTtT5Wl - 

6/f IFHEOf 1 3  I « ILNSOI*  <  f FHE0I16I *ILNSN 1 

5*1  IFWEO ri5)  .TNRP77  , TTENE0II6T *7WRlt  l,U EHED I 17 

6y<  IFHE0(19)«  ILTEOI * ( IFHEDI 20 » ,  H.TEM » 


6600 

6700 

6800 

6900 

5000 


'  k  \J 

5200 

5700 

5600 

T50TT 

5600 


5800 

7900 

6000 


if il  ia:ia>irj  in  iiaatirii  ianaii  r#j  n  i  ■  •  i  aM|  ■ 


8VIIFHFDI23I*  TETNEI *<IFHFDflOI* ISTME I 

94  f  IFHEOf  38  1 »  rCffST  J  ,  CrEWEDT?7TYJD*TF*TTFHEl7f  2  Rr*TPI3TT 

X,(IFHF0(55>*TCMNTI 

£**********#******************  m*  MM  M*  M  »*M»* 

EQUIVALENCE 


1701  »  «  iriurcuMtltmcu 

2  * ILDATE (lit  TOXRECf 195  1 1  * (LTIMBI II* I OXREC 1 198 1 ) 

7 «( LECVERTTl  *T DXRFC 1 99  >7~ - 

C  RMAX  IS  THE  LAST  RECORD  OF  A  OATA  FILE 

C  TUXLTJC  IS  TWE~  RECTWO  V  Of  THE  INDEX  FILE  *  7  FOR~  SINGLE  STAT10I 
6* (RMAX, IDXRECI 1091) *! IDXLOC  *  IDXRECf 20811 


l  x  R  A  ■  *  fc  i 


c*«mmmm«mmmm»mmmmmmmmmmmmmam»mmm***mm**m* 

C  EWO  UABELLED  CTJWMON  FOR  TN BEY  RECORD -  -  - 
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I0O  C  POTEN  m At N  PROG 
200  PROGRAM  POTEN 


- WTT 

400 

"'“TOO" 

600 
700  ' 
800 

- 900~ 

1000 

YTOO 

1200 

1700 

1*00 

~tTOO~ 

1600 

"ITOO 

1800 


2000 

2100 

2200 

7700 

2*00 

"7700 

2600 

TTOO 


c 

c  PTOGPAP  TO  COMPUTE  REFERENCE  SURFACES  RELATIVE  TO  PE  FO* 
C  CALCULATION  OF  AVAILABLE  POTENTIAL  ENERGY.  REGRESSION 
r'FTTT  ARE  "AOE  TO  PRPSTURE  AWIT  POTETTTIL  TEWTW ATUPF  A7  ' 
C  FUNCTIONS  OE  SPECIFIC  VOLUFE  ANONALV  AT  PEi 


IT 

C 

c 

c 

c 

tr 


JUNE  28  1976  N  FGFONOFF 

TNCLUOE  •CONPOTPN.FOR* 


OPEN  BINARY  FILE  FOR  STORAGE  OF  CONTON 


OPEN! UNI T ■ 10  *NANE«*  K  PTCN.O AT *V ACCESS** 01 RECT**TYPE»*0L0** 
*  RFCOROTYPE-*  FTYFD’*  tPECOPOS77F*RCN*ERR«TtOO> 

1  CONTINUE 


TO 

1000 


KIN  -  6 

KTTSr  -~E - 

KLIST  -  * 

KOUT  -  9 
KTP  -  l 

HR ITE  fKTTX» lOOOl 

F0RNATC1H  ,*POTENt  POTENTIAL  ENERGY  PROGRAM* ) 
C  ALT.  PTENS - 


2800  GO  TO  50 

"7900  C 

1000  C  CREATE  NEW  R  TNART  FILE  FOR  STORAGE  OF  COMMON  IF  NO  OLD  ONE  EXISTS 
-  7100  C 

3200  1100  OPEN!  UNI  T-IO.NANE-'KPTCN. OAT  *  VACC FSS «** OTR ECT*  ,TYPE»*NEH** 

3300 - * — RE  CUROTYP'F » * FTXEO * » R  E CORO'S T7 F*KCH »  E R  R*TTOO I 

1*00  GO  TO  1 

7500  60  END 


tM»J 


400 

500 

600 

TOO 

800 


1000 

noo 

1200 

“TTOO 

1400 


€  PTE  NS  SuftPROG  P'OTEN  PTEWS.FOR  PILE 

"SUBROUTINE  PTENS 


riTtTTTITTITTII TTTTI TTTTITITT TTTTTT ▼ TTTT TT T T TT T f TT J III! Jill 


C  PROGRAM  to  CONFUTE  REFERENCE  SURFACES  RELATIVE  TO  PE  FOR 
C  CALCULATION  OF  AVAILABLE  POTENTIAL  ENERGY.  REGRESSION 
C  FITS  ARE  MADE  TO  PRESSURE  AND  POTENT T AL  TENPFRA TORE  AS 
C  FUNCTIONS  OF  SPECIFIC  VOLUME  ANOMALY  AT  PF.  _ _ 


C 

C  JUNE  28  1976  N  FOFONOFT 

C 

C  MODIFIED  TO  ACCEPT  CT078  VAX  DISC  OATA  AS  INPUT  150EC80  N.8RAY. 

c .  . 

DIMENSION  Df5),DOCIlO) 


,  - T500 - 

1600 
•  TTOO 

1800 

C 

--  - 

INCLUDE  * COMP OTEN. FOR' 

CHAR ACTER*8  OOC 

- .  . 

a  TWO 

2000 

C 

KIN  -  5 

— rruo — 

KTTX  *  6 

:  2160 

HR  ITE 1 KTTX  *40) 

"  7270 

40 

FOPMATUH  ,  *  INTTTA1T7F  COMMON  (YES  OR  NO) ? '  I 

1  2280 

IF  1  NOYES  I KTN,KTTX ) «NE . 1 ) GO  TO  14 

- 7340 

C 

.  . 

2400 

C 

INITIALIZE  OATA  SELECTION  PARAMETERS 

.Vfli 

~T“ 

2520 

CALL  DATA(KTPy-l) 

r  7500 

GO  TO  30  ' 

. 

2640 

14 

RFADIIOUIKPTCM 

*  .  “TTOO 

18 

MRTTFIMTTY,701 

2800 

20 

FORMAT ( 1H  , 'INITIALIZE  REGRESSION  PARAMETERS 

1  YES  OR  NO)?*) 

,  - 7500 - 

. 

3000 

RFADI10' 1,ENO»10) KPT  CM 

"  ~  3700" 

5 

MR  I TE I KTTT ,751 

~  i  3300 

25 

FORMAT! 'OHHAT  TS  THE  RESOLUTION  OF  THE  TNPUT 

OATA,'  IN  OB? *1 

"  3400 

READIXTN, *10EUR 

r  3450 

T  -  H  ■■  —  -■  ■  ■ 

KLIST  -  6 

- - - - - 

1 


tin 


1  3600 

'  4  TOUT) 
*  3900 

4000 
M  4100 


hum  uii  oui  n*iJop*  kl 

1005  FORMAT  ( 1H  ,  •  POTENtKB  R • 1 5W,  JS  M,RL  IST,K0UT,  KTP  yK  IN*  y/,  714) 

R  E  AD IMTH  »  *  )  KW  ,’T SNfJSF, K U  S  »  yR OUT  , K  TRVR IN 
IFfKBR.GT. 12IKBR-13 

TF  1*810130071 3O0VI7  ~  - ~ -  “ 

17  GO  T0( 100 *200 *300, 400, 500, 600 *703. 800* 900, 1000*1100,1200, 100, 


■ 

\\ 


4200 

4300 

4400 

5500 

4600 


4800 

-4500 

5000 

5100 

5200 


5400 
5500 
5600 
TTOO  ' 


C  ♦»»>»♦»♦»»» *TNIT I ALT7ATION 
15  KTVPE  •  0 
NH OR  •  150 
MPUF  •  46 


NPR Ill  «  4 
NPRT7T  *  TT 
NPR ( 3 )  -  17 
NPR t 41  24 

NPRI5)  •  50 


NPR ( 7  )  «  100 
NPRT3)  -  700 
NPRI9I  •  500 
NPRTTOT  •  500” 


5900 

— BTTTTO - 

6100 
“  62M 
6900 
6900 
6500 

“MM 

6  700 
6000 
6900 
7000 
7100 

- T2TT0 - 

7300 

7400 

7500 

7600 

7700 

— rrro — 

7720 

7730 

7740 

7750 

7800 

— 7900 - 

8000 
81 00 
8200 
8700 
8400 

— 8500 - 

8600 

8700 

8800 

8900 

8925 

— 8980 - 

8975 

9000 

9100 

9700 

9300 

9400 - 

9500 

9600 

9700 

9800 

9900 

toooo — 
10100 
10200 
10300 
10400 
10500 

10600 - 

10700 

10800 

10900 

11000 


NPRUtl  -  0 
NPRI12)  ■  2 

-  NPR  OTT  7 - 

NPR (14)  •  13 
NPRI15)  -  13 
nsc(h  *  o 

N5rm  •  400  - 

NSC (31  •  1000 
NSC(4>  -  T«03 
NSC  f 5 )  «  3500 
NSC (6 )  «  6 
NSCI7)  -  5 
NSC ( 8 1  «  4 
NSC  19)  -  3 

- N5C1T0T-7 - 

NSCIli)  -  20 
NSC  1 1 2 1  «  30 
NSC  C 1 3  I  -  40 
NSC (14)  -  50 
NSC (151  -  *0 

- pr^mrcT?”"-  ~fiff - 

ISHP  -  'GY* 

recurs  -  i 

IPPDJ  -  3 
GO  rn  5 
30  DFLP-2. 

16  VP ( J )  -  0.0 

PPIFF  -  6.0 
A 2  •  3.0 

#3  •  3.0  - 

LTYPF  -  1 

- TTPTV  O - 

N  -  2 
NOP  -10 
KSW  -  1 
WCT  «  1.0 
on  17  J-1,16 

- m9tir*o - 

17  CONTINUF 

GO  TO  18 

**♦♦♦•♦♦*♦♦♦  SFLFCT  OAT  A  AND  COWPUTF  «1 

loo  c aii.  corps-  - - - 

GO  TO  10 


C  IN ITTAL  f  7E  OATA  SELECTION  PARAMETERS  «2  ♦♦*♦**♦♦♦*♦*♦♦♦*♦♦ 

c  -  •  - . . - 

200  CALL  DATA(KTPV-l) 

C  »»4*****#*44SET  PARA8FTFRS  *3  *****»*4***4r*»*****4P# 

300  MRITFIKLlST,3OO01!CONtKSW,A2,A3,HGT,POfFF 

- *r*o  » ?  tzm* k  s m  a?t«3 ? egt/pui  ff - 

W»ITEIKLIST,3020)0FLP 
rfaocktnvriucuf 
iFirswno,  iof>to 
c 

C  SU8P0UT INF  TO  ACCEPT  REGRESSION  PAR A8ETERS  IN  ENGLISH  A NO 


310  CALL  PAR  AN 

WRTTEIKLIST,3?0» 

C  PRTNT  OUT  POTFN  FO***!  FTRTrrFTFRT 


moo 
11200 
It  560 
11400 
1 1500 
11600 
11700 
11800 


1  1 

12000 

12100 

12200 
12300 
12400 
00 
12600 
12700 
12800 
12400 
13000 


13200 

13250 

13300 

13350 

13400 


FOPHAU '0SECTT0N  LEVEL  LEVEL 
1H  , 'NUMBER  NUNftER  INTERVAL 


INDEX 


START 

PRESSURE 


«  Of 
TERNS 


«  0F»,7 
CYCLES') 


00  330  I-1,NSE 
11*1 >NSE 
I2-U?*NSE 

M«  ITE  <  KL  1ST  , 338 ) T, NPR I  I ) ,  N2R I  lll,NPR  I  f  ?  >  ,N$CO  >VNSCf  1 1 >  ,NSC(I  2  > 
335  FORNAT 113*619) 

- — rnO  CONTINUE - 

C  CHANGE  OR  LIST  DATA  SPLPCT I  ON  PARAMETERS 
CALL  0  A  T  A  !  K  T  P  ,0  I 
C 

C  CHANGE  OR  LIST  DATA  LABEL  I  IDENTIFIES  THE  DATA  SOURCE) 

C 

HR ITECKTTX, 3015 MLBL  (  I  >,1-1,13) 

IE  I NOYFS ( K IN, KTTX) ,EQ • 1 ) THEN 
NRITEIRLIST,  3-010) 

READ!  KIN,  6005  MLBLIR  >,K«1,13> 

END  IF  —  ~  ’ 


niLl: 


iiu.di: 


IriJ 


14200 

14300 

14400 

145U0 

14600 


1*  r uu 
14800 
14400 
15000 
T5TOO 
15200 


17  3UU 

15400 

15500 

15600 

15700 

15800 


1  -I'tKjyj 
16000 
I6TOO 
16200 
15700 
16400 


AD  >DV 

16600 

T6TOO 

16800 

rsooo 


IF!  JSW.NE.?)THFN 
HRITE!10*l)K  P  TCN 
ENOIF 
GO  TO  10 


FORNAT  !1H  ,’TC0N,.K5W,S0P,S0T*iWGT»P0IPF*,/,2I4*3F6.?,F7.0» 
FORNATIIH  , *  NSC  SP  *N»  NOP  r*  7,51 BvlOt 3 ) 

F  OR  NAT ! 1H  , *  PRESSURE  CONSTANTS*  *7  , I5f 4) 

FORNAT!  1H  ,» INSERT  LABEL  <2?  CHAR.*) 

FORMAT ! 1H  , 'INPUT  NEW  LABEL?  OLD  LABEL  IS:  **/,?«  ,13A4) 


**♦****♦♦*•  *AVER  AGING  SOBROUYTNE  rr  ****4****** A************* 

400  CALL  AVRCP 

GO  TO  10  -  ' 

************  HOT  PRESENTLY  USED  •♦••****4*4**4 


Mil 


C  NCR  -  8 

C  KTNP  -  5 

C  JN AX  -  23 

C  ROUT  -  I  - 

C  601  00  505  P-4,13 


V*  7V7  N  ■ 

C  505  CR IK » *)  -  0.0 

C  507  HRTTEIKTTX,501O)R0UT,NGR, JNATfRTNP 
C6010  F0RNATI1H  , ' AVDYF : ROUT ,NGR * JNAX,K I NP*  ,7 , 4  1 4 ) 
C  51 7  RFAOrRTN,*)RWr^NGr,  JWAr^riNr 
C  DO  530  J- 1,NGR 


IIU  jw  -  I  f  jn 

C  READ! K1NP,*H,NST, RPR,  fD(K),K-I,5) 

C  1 1 PR  1 1 1  -  RPR  — ■  " 

c  no  520  N-q,i3 
C  5?0  CPU ,NI  -  CRU,NI  ♦  Of N— 81 
C  530  CONTINUE 


'<u  .ITU 

C  00  540  r«l,J*AX 

C  540  CP  f  I  »  J)  -  CPU,  JIFFLOITINGP! 

C  545  00  850  I«l,JNAX 

C  MP1TE T1T0UT , 50001 TVNST,  1 1PR  CT  >  *»< CR  <  I,P7~,K-9 ,  17T 


79 


17000 

17100 
L77U0 
17300 
17*00 
17500 
1 7900 
17900 


18100 

18700 

18300 

18*00 

18500 


18700 
1 8000 
18900 
19000 
19100 
T9700" 
19300 
19*00 
19500 
T9600 
19800 


70100 


70700 
70300 
70*00 
70  300 
70600 
70700 
70800 
70900 
71000 
71100 
71700 


71300 


71*00 

71500 

71600 

71700 

71800 

7T90U 


77000 

77100 

77700 

77300 

77*00 

77800 


77600 

77700 

77800 

77900 

73000 

73300 

73700 

73300 

73*00 

73300 


f 

C 

xr 


850  CONTINUE 
_ KOUT  -  2  6^ 


C  GO  TO  (501,50?V5*5,101I$W 

C5000  F0PMAT(2I*,r3i/3F30.Al 

C  ♦♦♦♦♦♦♦♦♦♦♦♦LIST  DATA  LABEL  *6  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦< 

600  WR  I TE  <  KL  I $  T, 6005*  f  LB'Lf  ft ) *K -l , 13 ) 

GO  TO  10 

~6W5 - TTTTTWATTTff 

♦♦♦♦♦♦♦♦♦♦♦♦  #7 

703  MCOF  -  0 

707  CALL  ftEAO(KQUT,KBUF»  MBUF, IFOF  1 

IF ( I FOE ) 720  *70*  ,70* 

70*  MEOF  «  0 


“Tmn - 

NOT  PRESENTLY 


USED  ♦♦♦**♦*♦*♦♦♦*#**♦*♦♦*♦♦♦ 


-too — rrnmrPFT900^-9orri7io 


710 

715 


770 

775 


00  715  "«1,MH0R 
KHOG(M)  »  KBUFfW) 

GO  TO  800 

tfi  me  of  no, 773,10  "  -  - 

MFOF  -  1 

- cor  TD-ln - 

703  GO  TO  10 

♦♦♦♦♦♦♦♦♦♦♦♦LIST  HEADER  RECORD  *8  ♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

800  WPITEfKLIST,  80001 f LB 8L ( K I , K» 1 , 3 > *  XX  A T , XLONG, XLTO, XLGO 

WR  TTE I  Kl  1ST,  9008  JLTY PE *WHDRTTCUN,  1  SHE  WTCifST ,  JOHT ,T  PR  ,LTR 
GO  TO  10 


8000 FT0m«TT77 3  A  *  „*T 8  .  3  1 - 

8008  FORMAT!/, ♦  Typ*  MDHR  ICON  SHIP  CAST  JDAV  IPR  LPR*,/,8I5 
C  ♦♦♦♦♦♦♦♦♦♦♦♦LIST  DATA  REDORO  *9  «>♦♦♦*♦*♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

900  WRITE!KLIST,9000>IRFC,PF,T0,S0,0V0,PM,THM,SM*DVH,71,72 

903  IFTISSWC8))  905, 'TO,  10 

905  WRITE IKLIST ,9005) !CP!K1,K«1,N1 

ffRTTFna  rrr,  wrim  n  to  ,k  -1 ,  m> - 

GO  TO  10 

,  1 7 ,2  IF  7.  T,  F7. 3  *E7  .7  ,F7 . 7 1  ,  P6.  2  *FV.  *  I 
,3HCP  , 6F 1 1  •  * ) 

, 3HCT  ,6EI1.*) 

TAPF  FUNCTIONS  »10  ♦♦♦♦♦♦♦•♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
RTAPETTtWf JSW,KLTSTI - 


) 


9000 

9005 

9010 


FORMATUH 
F0RMAT!1H 
FORMAT! 1H 

C  ♦♦♦♦♦♦♦♦♦♦♦♦♦AG 

croon 


OAttr 


C  KLIST  •  6 

1000  GO  TO  10  - 

C5  ******  SET  ISSW  SWITCHES  *11  ♦♦♦♦♦♦ 

1100  WRITEt*TTY,-lT50l  TKfK*l , lETVlTTS'WTK !  »1!«T*T67 

1150  F0PMAT(2(1H  ,7,161*, /l,*  ENTER  K, I SSW! K 1 » 1 

- yy  ATH  K  I N  ,-RTT  KVTS  S  W-TIT  r,~M -1,161 - 

GO  TO  10 


C 


C  ♦•♦♦♦♦♦♦♦♦  FYIT  PROGRAM  *12  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

1700  WRITE rRTTX,17I01 

rF(NOYES(KIN,KTTXl.NE.l)G0  TO  10 
- - - STOP- - 


1710  FORMATUH  ,'E*IT  PROGRAM?') 
c*»  potent  short  norij9PT«rr*TTON--iiirAwoT  o  *♦***♦**♦•♦**♦ 


1300  OPFN! UNI T»50,NAME« 'POTEN.DOC *  *TYPE«'GLO*, RE A00NLY1 


00  1350  N- 1,700  1 

READ!50,1325,PND-1312M00Cm  71-1,81  | 

1350 

1317 

1375 

1330 

^wra-T. 

T  X  ,  l  JIUHUUt  1  1  1,1*1, Of 

CONTINUE 

CLOSE  UWIT-50T 

F0RMATI8A8) 

FORMATUH  ,  8T8T  '  “  - 

— < 

Ihhl 


COMPS  SUBPROG  POTPn  ***♦♦******♦♦**♦*****♦♦**♦♦*♦*♦*♦♦**♦ 
**♦*♦♦***♦*»♦********♦***♦********♦♦*♦*****»*«#***♦****♦* 


******** *  +  * ************ ************************ *********** 


TO  COMPUTF  REGRESSION  COEFFICIENTS  AT  SPECIFIED  DEPTHS. 


JUNE  28  1976  N  FOFOMOfF 


1*1*1 


1000 

1100 

1200 

1700 

1*00 


1600 

T700 

1800 

IflOO 

2200 


(alt  ilillHi 


N.&RAY 


UiM.BiiLl.lll 


l»1 1 


INCLUDE  * CONPOTEN.EOR* 


lilfl 


i*ni 


hUkiJiki 


NUMBER  OF  STATIONS 


100  CONTINUE 


INITIALIZE  AND  ACCESS  INOEX  FILF  A HO  CRUISE  INFORMATION 


2*00 

2800 

2600 

mro 

2800 


rX'lthi 


3000 

TIUO 

3200 

3300 

3*00 


CALL  OATA<KTP»?) 


BFGTN  COMPUT ATI ON  FOR  JSW  TOTAL  STATIONS 


IF  f  ISW.GT.LLREOISM-LLREC 


RF/TO  STATION  HEADER  END*  UNIT  XTP  WD  CHECK  IF  IT  MFFTS 
SELECTION  CRITERIA 

PEAT!  TEMPERATURE  AND  SALINITY  DAT*  FNTO  DATA  ARRAY. 


*000 

*T00 

*200 

*700 

**00 


GO  TO  200 
106  CONTINUF 

RFTURN  TO  PTFN5 


*600 

*700 

*800 

*900 

8000 


COMPUTE  REGRESSION  VFR5T0N  OF  DATA 
IF  TSSWI 13) --1  OUTPUT  TO  FILE  * . REG 

PTSCFLLANFOUS  rNPOlCMATTTTN  MAY  BE  REOUESTED  TO  BF~  PRINTED 
TO  FILE  PRINT. PTN  <KLIST-*>  BY  SETTING  ISSW  VALUES. 


8200 

8300 

8*00 

8800 

8600 

"8700 

8800 

7900 

6000 

6100 

6200 


KTYPE  DISTINGUISHES  BETNFEN  HEADER  AND  DATA  RECORDS! 

0*OATA,  1-HEADER. 

KE.KT.K*  APE  INDICES 
N  IS  POLYNOMIAL  ORDER 

NT7P  FS~r  TJF‘  DATA  CYCLES  TJ  VER  ~¥HI  CM  RE  ORE  SSI  ON  IS  PEI 
KERR  COUNTS  THE  #  OF  REPLACEMENTS  MADE  BY  SUBR  EDIT 
TN  EACH  REGRESSION  INTERVAL 
IPR  ANO  LJP  KEEP  TRACK  OF  PRESSURE  AS  AN  INDEX 

tret:  indexes  thp  levels  pf 


6*00 

6700 

6600 

6700 


KF  -  2 

N  -  NSC»NSECTTDN*l) 

NOP  -  NSC< ?*NSECTinN*ll 
XNDP  •  NDP 


MOO 

7000 


KFRR  -  1 


82 


7i  t ro - ptfc  =~i - 

7400  c 

7500  C  CO*PuTF  REGRESSIONS 
7600  C 

76T3  C  J*AX  IS  THE  TOTAL  NUWHFR  OF  LFVFLT. 

7666  C 

-7GW2 - ivonTT  w^rmnnsy - 

7714  P(W)«PRFSS(*t 

7710  T(W)-nAT*Y(«»l  I 

7746  S(H)-DATAXf 8*2) 

7770  7155  CONTINUF 

7800  ?10  00  270  J-1,J*AX 

-7870 — e - 

7900  C  SUBR  JPR  COMPUTES  CORRECT  PRESSURE  PF  GIVEN  SECTION  ANT) 
8000  C  INTERVAL  INF  OP  NATION 


8100 

8700 

8100 


10600 
10700 
10733 
10766 
10800 
10900 
11000 
T1O70 
11040 
11060 
11080 
1 1 100 
13400 
11500 
13600 
11700 
13800 
13900 
14000 
1 4800 
14900 
15000 
15100 

iTOnr 

15300 
15400 
18800 
15600 
15700 
~  1 5800- 
15900 
16000 


C 

IP  *  JPR  (  IRECVNPRiNSECTfONT 
If  I !P.f O.NSCIKF) I  THEN 

7T57 - ir»  NS  mmUSPTT  TOUT - 

NOP  -  NSC<KF»2*NSECTI0N> 

XNOP  -  NOP 
KF  «  KF  ♦  1 

EN01F  - 

INO  -  < IP-PRESS<11)/DELP  ♦  1 

- wt  „  two-NOpyp - 

52  -  INO*-NOP/:2-l 

TFINl.LT.llTWPr  - 

*1-1  \ 

82-NOP  '  . .  . 

ENDIF 

- IFIB2.GI. JRNAXJGO  TO  280 - 

C  IF  TSSWC5I--1  WRITE  OUT  SCAN  «,  SCALED  PRESSURE*  TFNP, 

C  5ALTNTT7.  -  - 

C 

IF  f  TSSW 181 1216  *717*  21 7  ' 

216  WPTTEIKL  I  ST,  2160MK,  P  f  K  )  *T(  K  I  *5 1 K  )  *X  *82 ) 

7TF0 — ^FTIRNATUT*  ,~15Y3F9.31 - 

217  CONTINUE 

C 

C  PERF0R8  REGRESSIONS  OVER  INTERVAL  CORRESPONDING  TO  PF 

C  FIRST,  FIND  WEANS  OF  P,S. 

C  ' 

220  PF  «  IP 

P w  *  0.0  . 

sw  .  0.0 

TH8  -  0.0  - 

0V8  -  0.0 

- T0-a  0>q - 

SO  -  0.0 

DVO  •  0.0  "  - 


16100  XN  -  0.0 

16700  231  00  710  8- 81, '82 


16300 


16500 

16600 


P*  »  P8  ♦  p(N) 

710 - SN~-  58  ♦  5(*» 

PW  -  P«/XNOP 
S8  •  58/XNOP 


16700  235  00  250  N  -81,8? 

16000  C 


16900 

17000 


l  4100 

17200 
17300 
17600 
1 7500 
17600 
”17700 
17800 
17900 
18000 
19100 
18200 
“18100 
18600 
18500 
18600 
18700 
18800 


i  O  Tl/U 

19000 

19600 

19500 

10600 

19700 

HPT800' 

19900 

70000 

20100 

70700 

20300 


20500 

20600 

20700 

20600 

20900 


C  CALCULATE  POTENTIAL  TFMP  AND  SPECIFIC  VOLUME  ANOMALY 
C  RFFFRRFO  TO  PE. 

C 

2350  THfM)  .  THETA(R(M),r(My,S(M),PE) 

O'VCN'l  «  OVA(PF,TH<M)  ,SfM)) 

7352  thm  -  thm  ♦  rmn) 

OVM  »  OVM  ♦  OVtM) 

P  T  <  M )  -  P(M| 

TTTwy.-THT«1 - 

OVX  -  OVtM) 

c 

C  Fl,E?  ape  min  and  MAX  SPECIFIC  VOLUME  ANOMALY*  WITHIN 
C  THE  REGRESSION  INTERVAL. 

C 

TTTM-M1  236 ,7767717 - 

736  FI  -  DVX 
F?  -  OVX 

237  IF (0VX-F1  1  7372,738,738 
7377“  FI  -  OVX 
738  IF  fF2-0VX)2382,'239,239 


r  f  —  ii ,  * 

239  CONTINUE 

TF( A9S(P<N)-PF)-P0TFF  >260,240,750 

C 

C  AVFffACF  T,S,OV  OVER  PF  ♦-  PDTFF - 

c 

770  TO-  '.~TTT7T  81 - 

SO-SO  ♦  S ( M 1 
OVO  -  OVO  ♦  OHM) 

XN  -  XN  ♦  1.0 

750  CONTTNUF  - 

THM  -  THM7XN0P 


OVF  -  PVM 
TO  -  TO/XN 
SO  *  SO/XN 
DVO  -  OV 0 /XN 


21100 

71700 

21300 

71600 

21500 


C.  A  UUU 

21700 

21600 

21900 

27000 

22100 

"77700“ 

22300 

77600 

22800 

22600 

22700 


(4QUU 

22900 

21000 

23100 

23133 


2503  CALL  LSFT 
C 

C  IE  TSSWC10J—  1  PRINT  OUT  RFGRESSI08I  COEFFICIENT! “FOR  TUI’S  LEVEL 
C 


751  00  2610  M-M1,M2 

DVI  *  0VAIFIM3  ,TIM|,'5(M1 ) 

PTD  -  PT|M)  -  PM 
TTO  «  TT(M|  THM 

7510  WRITE  (KLIST,?5ll)M,P  f M),TH<M)  *SfH|  ,  OV  I  ,’OV  (  M  )  ,P  TD,  TTO 

- \ - ,71777 - 

7511  FORMAT ( 1H  ,I6,E7.1,2F7.3,3F7.2,F7.3,X,F6.3,F7.6<2F3.0) 
WRITE(XLTST,2515MrPIM),Wil,Tn,PM 
WRTTECKLIST,2515>  fCT(M) ,M-1,NI,0VM 

7615  FnRMATUH  ,6En.51 


C  A2  TIMFS  THE  STO  OEV  71  tDEFAULT  IS  3>,  AND  EXCLUDE.  RE-EDIT. 

C  - 

753  rf (KFRR.GT.3 I  THEN 

WRITFfXLIST, 25300)  - 


25166 

23177 


25300 


£  MAT  1 1H  ,'KESR  IS  GRFATER  THA7I  3— -E0I3  GIVE?  UR*» 
GO  TO  7536 


23194 
2  3T0  0 
23300 
71400 
23900 


li.TiIi 


2  3700 
'7T750 
23775 
“73300 
23025 


C  3D1U 

23075 

^znnn 

23091 

23900 

24000 


IF (KERR >2536,7932,253 2 
253?  00  7535  M-M1,*7 

IF (A8SIPT <M>-PM>-A247 l >2535,2534, 2534 

c  . . . .  ' 

C  CALL  E0IT1NG  SUBROUTINE 


2534  CALL  FO I T f KERR > 

TF  I  KERR  1 2  53 7,770 ,2  20  . 

2537  TF  ( I SSW ( 3  > .ED.-l ) THEN 

0V7 -OVA \ PF,TMFTA(Pf «  > ,T (Ml  , 5731  ,  PF )  ,  5TN1 > 
WR TTE (KL 1ST, 25370 >P1M>,0VI 


X  INTERPOLATION  OF  T  OR  S*> 

“  ENOTF  . . - 

GO  TO  220 

75T5  rONTtNUF  - 

2536  KERR  -  0 


24200  C  IF  OUTPUT  IS  REQUESTED  WRITE  DATA  SUFFER  KBUF  TO  FtLE  4.REG 

75300  C  - ~  -  - 

24400  IFUSSW(13»>255,260,260 

“75300  253  HR  TTETKUtmFSUF —  - - - 

24600  C 


24000 
- 24500 

25000 

“73300 

25200 


760  TFlISSHrr2>I263V267,767 

265  WRITE(KLrST,2'65O»IREC,PF#T0,30*0V0,DVNVS,M,THB,71*7  7*N,NOP 
7650  FORMAT ( 1H  VI AVFT# IYTET.  3,3F  7.2 VF 7.7, X, 4*6.3, F7 ^4^7341 
267  CONTINUE 


25400  770  CONTINUF 

“75500“  200  mrSSWfIT112S5Y755y795 

25600  785  CLOSE (UNIT»KOUT> 

75700  “  WTO  106  - 

25800  FNO 


300 
400 
500 
ft  00 
TOO 

— rsxr 
«oo 
<roo 
1000 
1100 
1200 
"1300 
1400 
TWO 
1600 
l  TOO 
1800 


AVRCP  SU8PR0C  POTEN  **♦♦*  A  VffCB**?1**  ************  ********** 
♦**♦**♦♦****♦*♦*♦*#*♦♦**♦*♦♦**♦♦♦*♦*•*♦♦*****♦*♦*♦♦♦♦♦♦♦♦** 

- subroutine  mr? - 

*♦•■♦•♦*♦**♦♦*♦♦♦*♦***•♦***♦**♦*****•*#**♦*♦**♦♦**♦♦♦♦***** 

SUBROUTINE  TO  AVERSCF  SPECIFIC  VOLOWEANO  COEFFICIENTS. 

JUNE  28  197ft  N  FOFONOFF 

■ROUTFIED"  FOP  YT5T  DI  SC  "CTO  78  EOKNA'T  15DEC80  N.‘  BRAY - 

INCLUDE  •COHPOTfN.FOR*  """ 

DIMENSION  - 

dtnfntiun  tr  nwrre  i  % swctt  ioo i  «crbi  bi  *swnooi - 

or MENS  ION  APF(100),$VI (1001 *EOB( 100) 

DIMENSION  VMlN(lOOl,VMAX(iOOi 

CHARACTER 


2000 

2100 

2200 

71015 

2*00 

- 7500 

2600 

7100 

2900 

3000 

3100 


CHAR  AC  TER  *  l  TV1VTV2*TV3 
FQOrVALFNCE 

FOUI VALFNCE  ( CR , IHDG 1 . ( PF ,VR l 

FourvArFNCF~Tcwrn~vi  vs  w  or  m  mi,  nn ,  vvArvrriiTVirr^syi  i - 

FOUI VALENCE  ( CR f 1 ♦ 1 2 1  *  APE  1 * ( VN IN* CR < I , 1 2 H • ( VM AX *CR (1  * 13 1 1 

READ  IN  STATION  »«S  TO  BE  AVEPAGEO.  ENCOOF  INTO  CORRESPONDING 
FILE  NAMES. 


3300  RFWINO  12 

3500  OO  61  K-l,IOOO 

3600  RFAn(l?,6l0,EN0»62)W*FNAME(K)*'WT(K) 

3700  ftlO  FnpMAT (14*  A 1? *3^.71 

3900  61  CONTINUE 


3932 

3050 

4000 

4100 

4200 


JSTN-K-1 

GNAMEI9:  121-*."AVG’ 
ENOIF 


AVERAGING 


4400 

4500 

4600 

4700 

4800 

9900 

5000 

5100 

5200 

5300 

5400 

5~500 

5600 

5700 

5800 

5^00 


100  ISW2  •  ISM  -  2 

rF(TSW2110 1.113  *113 

BRANCH  1  —  INITIAL  AVFRACTNG— BEGTNSHFRF 

101  00  110  J-1,100 

- 00-t  TO  ~T»1~*T3 - 

110  CR  t  J »  T )  -  0.0 

112  IRMX  -  0  -  '  ' 

BIT  INCHES  2  ANO  3  BEOTN  HERE  — 


01*PN  APPROPRIATE  FTUF,  RE10  HET0E1T 
00  1200  KK«1*J3TN  ~  - 


1 


i 

•* 

J 

"V 


6000 

6050 


6100 

6200 

6100 

6600 

6500 

6600 


OBFNIUNI  T-KOUT  VNAHE-FNAHE  TWKT  ,'tEAOWLY,TYPF«mO' 
*  FORM-* UNFOP MATTED* I 


H 

NSW-5 


C  CHECK  IF  OAT  A  S  FLECTION  PARAMETERS  ARE  SATISFIED.  tF  NOT, 
C  ~  NSW  IS  Rf  TOftNTTT  OITA  AS  A  ,  AWTT  AT TON  I  $  SK'f  WO. 


rFINSW.NF.5)G0  TO  1200 
N5f»NSt*l 
OELB-O.O 
P  PR -0.0 
62-0.0 


B3-0.0 


8000 
-i  UTOO 
B200 
8700 
8600 


.MiM 


8600 

8700 

8800 

8W0 

5000 


5200 

X50TT 

5600 

550IT 

5600 


10000 
AT)  TOO 
10200 
IOTUO 
10600 


IU7UU 

10600 


C  IF  T5SWI151--1  WETOHTS  ARE  TAKEN  FROM  JSHPiPTN  FILE?  OTHERWISE* 
C  THEY  ARE  SET  TO  l.' _ _ 

rFUSSWI  15)11350,1357,  1357 


iiu  i  —  r  i 

GO  TO  1370 

1357  WGT  -  1.0  ~ ~~ 

137V  TF  I ISW2  1120,120,138 _ _  _ 

C  BRANCHES  1  AND  2  CONTINUE  HERE  FROM  STATEMENT  #1370 


120  REAOf  KOUT , ENO-160 IKBUF 

GO  TO  160  *"  ‘  '  "  "  . 

C 

C  branch  3  i  wr  He  out  aver  a  gfO  f  ile  si  Conti  nofs  here  from  statement  #1370  • 
c 


1  iiiivv&i  kiiiKv/i  rimriti 


135  CONTINUE 

C  OPEN  NFW  FILE  NAMEO  *. AVG  CORRESPONDING  TO  INPUT  R.REC*  FOR  OUTPUT 
C  ‘  TIN  UNIT- IX.-  -  ~  - - 


10800 

T050IT 

11000 


1  t»ii] 


11200 

XT300 

11600 

TI5UU 

11600 


OPFNIUNI T-ll, NAME -GNAMF, TYPE- *MEW*, FORM* *UNFORWiTTEP*> 

C  WRITE  HEADER  T06.AVG _ 

WRITEflllKHOG 


C  BRANCHES  1  ANU  ?  CONTINUE  HI 
C 

160  TFl  TREC-TRMTTIA6  iT67Yl  6  ^ 
167  IRMX  -  IREC 


X  XRANCH  7  CTJNTTNUET  ‘HEBFE'XROM- 
C 

T6T  CONTINUE  -  - 

1675  OEL  -  SVAIIRECI  -  OVM 


itriuj  i 


11800 

CPMI1I  •  CPMI11  ♦  PM  -  PE 

TT50U 

12000 

TTO  150  J -1 ,  N 

150  CRf  IREC,  J )  -  CRMREC*  J  1  ♦  WGTPCPMCJI 

TZTuu  C 

1 

127U0  C  BRANCH  2  RETURNS  TO  RE  AO  NEXT^Om  tf CORD  f ROW  TYREC 
12300  C 


12500 

T76W 

12700 

~175W 

12900 

~rsmr 

13100 

IT700 

13250 

15100 

13500 


13600 
13700 
13800 
l  TWO 
16000 
~T6T00~ 
16200 
16700 
16600 
15500 
16600 


C  RffTNCH  l  CONTINUES  FRO*  S TATEWEWT"  lfI  66 
C 

155  CONTINUE  —  -  ~  - - -  ‘  '  1 

158  SVAIIRFC)  -  9VMIRFCI  ♦  WGT60VN 

WTR7TRTCT  -  VWTNTTRm - 1 

V«AX<IRECI  -  VNAXfTREC)  ♦  WGT6F2 

SVHIREC)  -  SVIHREC)  ♦  WGT6DVZR0!  PF*DTN*PW*CP*N*NnP*FlVf  2,'  j 

♦  ISHP,KCASTtICON,OELP 1  I 

SWCT(TRFC)  -  SWGTITREC1  ♦  WCT -  ] 


CO  TO  120 

160  CLOSE  t  UN  I  T •* OUT  1 

CLOSEfUNlT-11) 

_ IE  (KK.LT.  JSTIMIGO  TO  1200 

ITTTSW7 


C  BRANCH  1  CONTINUES  PRO*  PREVIOUS  STSTEHFNT 
C 

161  on  1605  J-1VIRNT  ~  . . 

VHINIJl  -  VNINI JI/SWGTIJl 


3 


16800 
35900 
150 00 
15100 
15200 


156 66 
15500 
15600 
15700 
15800 
15900 
16000 
16TOO 
16200 
76300 
16600 
~T6307T 
16600 
16700 
16800 
16500 
17000 


SVKJl  -  SVM  Jl/SNGT!  J) 

1605  SVAIJ)  -  SVA1  JlfSWGTl  J1  - 

IFf  I5W2U80, 180*700 

C  . “ 

C  BRANCH  2  CONTINUES  FRO*  S  TATENFNT  PRECEEDIWO  »161 


1610  OFLB  -  0.0 
PPR  »  0.0 
KF  -  ? 

N  •  NSC l NSFCTION+l 1 


IF!  ISSWflll.FQ. -I > WRITE !KL 1ST ,16230) 

no  161  J«1 , TRMX  - - 

^  1FUPR!  JfNPR»NSPCT ION  I-NSC  IKE  >1161 2^161 1»1612 

NDP  -  NSC ( KF ♦2*NSFCT ION) 

- K^r-V  -\rr  *♦  1 - 

1612  DO  162  I • 1  *  N 

162  CPNCT1  •  CR! J»T173WGTf J1  - 

PF  -  JPR! J,NPR,NSECTION» 

rFITSSNUini671V1676*T625 - 

1621  WRITE!KLIST,1621)PF*  I CPPII)  «  I-1,N  1 


t 


17200  16210  FORMATdH  *  *  AVER AGFD  REGRESSION  COEFFICIENTS*  *■*/* 

17300  *  ♦PRESSURE*  »2XVrrCPm  %5TrrCFr?T5r5Tt^CPT3T%5TV»tnn5)%  -  - 

17600  ♦  5X**CP!6|*,6X,»*CP<6»  M 

17500  1626  OVT  -  SVAIJ1 

17600  OVF  •  DVZRO!PF,OVI,PF,CPH,N*NDP*VNINI JV,V8AXI Jl, 17HP,KCAST* t 


l ffUU  UtLB  ■  iTIIJf  -  uv^ 

17800  SVA(J)  -  OVF 

17900  0FLP1  «  PF  -  PPR  -  - 

17933  FOB!  J!  -  OPOVfOVF  ,0VI  ,CPH*N,  VN1NI  J)  ,VNAX(  JM 

17966  EOfifJ)  -  1./E08IJ)  -  - 


74000 

24100 


TYl.^y* 

rv2-»r* 


89 


— TTTTTtJ — 

— rrs«T» - — — 

24300 

N1  •  l 

“TOW 

M?  i  ? 

24300 

N3  •  3 

24600 

Tnrr '•  6 

24700 

NV?  -  4 

Nvy-«-"a 

24900 

WRITE(KTTX»3170)NI»N2»N3»KT0  rt  YR’»  I T8*  tll'i  T V2  *TV3 

74000 

ft  (ESDI  KlN*  4  INl',N2»N3»KT0»  lYft, 1 Tm 

29100 

REA0(KIN,3175MVl,rV2,  IV3 

74700 

Wft  TTFIKTTX, 3 176 VNV1 ,NV2 ,NV3 

24300 

REA0(KtN,*)NVl,'NV2,NV3 

— 24400 — 

T179 

— Fmmrrmm 

29400 

3176 

F0RMATI1H  *  *  NV1 «  NV2*  NV3 ' *315) 

738W 

ENDfF 

29700 

JSW  «  0 

24800 

C 

29900 

C 

N1 

TO  N3  ARF  EFFECTIVELY  IGNORED*  UNLESS  ISS7M81— 1.  SEE  STATEMENT  *440. 

T 

26100 

320 

IFITREC—N 1)321 V4 90 *321 

76700 

321 

1FIIREC-N 2)327 *4 70*322 

26300 

322 

IF  ( IREC-N3 ) 120, 724*120 

"  T6400 

774 

rUNTTNUE 

26900 

C 

— 2T>600 

~ C 

— VFT 

VALUES  FRU8  HAP  FUR8A1  VARY  ABL'ES 

26700 

C 

26800 

3243 

VR1  -  Vft(NVl) 

26900 

VR 7  •  VRINV21 

27000 

VR7  ■  VRINV71 

27100 

c 

77700 

T 

— nr- 

27300 

c 

OMFCK  PURPOSES  ONLY). 

7T4XT0 

c 

2  7300 

329 

IF  (  ISSWf 10) ) 376, 327, 3 27 

77600 

376 

WRTTEIKLIST  *3T50  )  ICON,  IREC»!5HR,ICAST  ,*F:,  P I  »T0»VR1  *'VR  2,  VR3  » 

27700 

X 

OH, PE 

27900 

~~v 

c 

IF 

9AP  FORMAT  NOT  RFOUESTEO,  RFTURN  TO  ST*TF«ENT  *120  TO  READ  NFXT  DATA 

78000 

c 

RFCORD. 

28100 

c 

28200 

c 

MAR 

F0R8AT  WRITTEN  TO  UNIT  KTO 

28300 

c 

"327 

28900 

730 

LF  TIE  •  0 

28600 

I PF  -  PF 

28700 

XLG  -  XLONG 

28800 

339 

WRITE  IRTO,  3300  ML88L  1 M ) ,M»I , 2 1 , TSHP , TCAST ,LF ILF, TPF, 

28900 

X 

XL  AT, XLG, I YR *.10  A  Y  ,  TTM  ,  I V 1  *  VR  1  ,T  V2  ,  VR  2  ,  I V3  ♦  VR  3 

29000 

IR!LFIi.(-»440*l2  0*990 

29100 

7190 

FORMAT (IH  ,1 1,X,2I2,  !4,X,?F5.0,2F7.3,2F8.3,F6.3,F7.2) 

29700 

7700 

FORMAT!  214, 11  ^T4,X,Il,T5,F7.2,F8.2,X,12Vl4,I2*7,3Ut*F9.4n 

29300 

c 

29*00 

c 

IT4V!8)  —  1  ALLOWS  SPECIAL  FUNCTTtm  TO  8F  CO8PUTF0 — SU8TRACTTH0  VALUFS 

29900 

r 

AT 

ONF  LEVFL  FROM  ANOTHER  BEFORE  OUTPUTINC  TN  «AR  FORMAT. 

29600 

XT 

29700 

490 

IF!TSSW!8))459 *324*324 

29800 

435 

VRI  -  VR(NVl). 

29900 

VR?  -  VRINV2) 

30000 

VR3  -  VR!NV3) 

70100 

30200 


90 


- GO  TO  120  . 

470  TF! ISSWI8) >4?5V324i324 

TO  TOO - 477 - VRT  ^WTUVIT  "="711 - 

30400  VR?  -  VR ( NV? K  -  VR? 

70700  VRT  -  VR7W7F  -VRT 

30600  GO  TO  325 

70700  C 

30800  C  BRANCHES  1  AND  ?  CONTINUE  FROM  183  OR  180 
30RO0~~  C  . . 

31000  C  IF  1SSWI7)-0  CONTfNUE  THROUGH  BRAHCH  3  AUTOMAT  I  CAttV. 

TTIOO  C  ”  ~ '  '  . 

31200  400  rFnS5H«7n550f,410<410 

7TT00  410  I3W-  TTH  ♦  1 

31400  IF<ISW-3»100*I0O,420 

”71700 - C - 

31600  C  BRANCH  3  CONTINUES1  HERE  FROM  STATEMENT  FRECFEDING  *161 
TT700  C  . ”  . 

31800  C  IF  M4P  OUTPUT  REOUESTEO  SET  LFILE  TO  1  TO  IMOfCATE  EOF  TN  MAP  FORMAT. 
”71700  ”  C . .  ~  . .  '  "  "  . 


32000  420  IF(ISSW<14) )422V560«560 

jtxxto - 72? — mtr  ■  i - 

32200  GO  TO  335 

32300  550  CONTINUE 

32400  1700  CONTINUE 

37470  ”  I F ( NS  H .  NE  . 5 . A  NO. T  5V.  E  O . 1 VGO  TO  I6  I~ 

32475  IFCNSW.NE • 5. AND. ISM.EO. 2 1 GO  TO  1610 

”774*7  rF(NSM.NE.5.  ANO.  ISN.E0.3)Grt  TO  420 

32500  MftO  RETURN 

17500 -  FNO 


TOO 

800 

900 

TOW 

1100 

~T7W 

1300 

T600 

1500 

1550 

1600 


1800 

1ST00 

2100 

270U 

2300 

"7W 

2500 

2600 

2700 

2500 

2900 

WOO 

3100 

3200 

33  00 
3500 
3500 
T5UTT 
3700 
3500 
3900 
6000 
6100 
6200 
6300 
6600 
6500 
6600 
6700 


C  OATA  SOUR  POTEN  *****  DATA  ********** 

C 

- SUBROUTINE  0  ATATFUN'^NS  tfl - - 

C  ************************************** 

c 

C  TO  SELECT  ANO  ACCESS  CT078  FORNAT  OATA  FRO*  TAX  0I5C  FOPNAT 
C  '  JCTtFSSFS  VARIOUS  WTTLARD  SUBROOTTWFT  FOUHO  TTT  CT0ITA7tT5 
C 


C  JAN  6  1976  N  FOFONOFV 

C  *OOYFTED  FOR  CT078  FORMAT  INPUT  TT  DEC  50. 

C 

INCLUDE  *Ca*ROTFN.FUV* 

C 


N  BRAY 


K |*TN  JlJi 


kii  tia.ta; 


INCLUDE  MOXREC.'DI'N’ 


C  THATOCTER 

C 


PR OCR  AN 


IF (NSW.F0.5 1  CO  TO  BO 
IFINSW.F0.2)  CO  TO  30 
TFtimrrry70v5 - 


NSW  LESS  THAN  ZEROT  INTTI ALIZE  5FUFCTT0N  PTRA"FTERS 


CONTINUE 


JOO  - 

UAYT 

DAY2 

XENN 

XENX 

XN5N 

XNNX 

—  xtrc 

XL  CO 
JSTN 
RETURN 


OV 

365. 

-1BO.O 

180.0 

-90.0 

90.0 

W;W_ 

70.00 

1 


NSW-O:  LIST  OR  CH/EVCE’  SELECTION  PARAMETERS 


6900  20  CONTTNUF 

5000  it?  write  naisT.i73ioATifoAYrrn)o 

5100  173  E0R«AT(1H  .5H0AY 1 : F8 . 3 * X, 5KOAY2T « E 8. 3VX*6H  JDO?  *1  6 » 

5200  REBDIKIN,R1DAm,0*r?,  JOO 

5300  176  WRITFtKLIST»175IXENN,XEHX,XNNN*XN>'X 

- 5600 - TT6 FO»N ATI ttf- f7WP*N  L  T  N  »  6F  7 »~?1 - 

5500  RFAn(KrN,*IXE*N»XE"X,XNBN,XNNX 

5600  WPTTE(KLI5T.17TTXLTO,XLCO - 

5700  1 7  Z  FORNATUH  ,8H0RTGIN*  «?(X*F8.3)) 

5500  RFAO(KIN,*>XtTOf-XLCO 

5900  RETURN 

- 6000 - C - - -  — 

6100  C  NSW  -  2:  REAO  FROM  FILE  STATIONS. PTN  INFORMATION  TO  IOENT rFY 

6200  c  rriTinNs 

6300  C 

6600  30  CONTINUE 


6450 

6600 

irscrcr 

6607 

6614 

6650 

6667 

6674 


& 


4 


n 


y  * tit  j 


7150 

7200' 

7300 

7175 

7337 


7500 

7600 

7700 

T100 

7900 


11300 

1600 

9200 

“9100 

9316 


■mj 

9366 

9100 

9500 

9600 

9700 


9900 

10000 

10100 

10700 

10300 


4  v  J/V 

10400 
T05 00 
10600 
10700 
10600 


L’J'tUU 
11000 
moo 
11200 
moo 
1 1400 


t 

g 


11600 

~IT700 

11750 

ntroo 


If  TK8R  «EQ. 1 3) THEN 
WRITEfKTTX,3lO) 


WRITE(KTTX,320> 

re  Ao<Ki^t330)f?HP,rcftuis,Twarj 
300  FORWAT(A) 

no  ■  rmririT a«"  woof *KTmnr?PRTiiirw',i 

320  FORHATtlH  » *  ENTER  SHIP  COOE*CRtTISE  *,PTTOJ  «*» 


- 668F  ‘ 

- TTO - FTTRMTTTT7V7TT) - 

6693 

ENOIF 

6700 

C 

6800 

6900 

C  WILLARD  HEAOFR  RELATED  SUBROUTINES 

c  ■  ”  - 

- . -  -  -  - 

- -  - 

7000 

CALL  PVER(PROVER) 

MlWHilJMliliiA  Miliifl  liJiP  11 


CALL  STATION(OVO*KTP) 
CALL  INDEX (11) 

LRFC  -  I  OXP.EC L9) 

LLREC  -  LRFC 
KKST  -  0 


RETURN 


C  NSN  *  It  RE  AO  STATION  HEADER*  CHECK  AGAINST  DATA  SELECTION  CRITERIA* 
C  AND  RFAD  TFNPFRATORF  AND  S AL THTTY TNTDTJITI  ARRAY. 

C 


IFIKUN.GT. LLREC)  GO  TO  620 
CALL  RFCTDXfKON) 
XLAT-SLATO 
XLONG-1LNCO 
IPR  -  PNIN 


*  m  —  “  i  u  '  1 

LPR  -  X N ♦ P R S I NT ♦P W TN 

LBBllll-IFHEOfT) 
ENC0DF(6,53,LBBL( 2) )  IFHEDf  4) 
FNCOOF (  4  ,14,LlTRUm  TTFHEOT5T 
FORMAT! I  3, •-* I 


C  CONPUTF  JULIAN  VFAR  DAY  - ~ 

C  CHETK  AGAINST  SFLFCTION  PARAMETERS 

C  '  —  "  - - - 

I OAY-KDAYI  TOA/INO,  I'YR  )-KDAY(  31*12*  IYR-1  )> 


TF (DAY -OAYl 1620*602*602 
607  IF  (OAY-OAY?  J604  *f604*r6  ?0 
604  CONTINUE 


C  CHECK  LAT  ANO  LONG  AGIANST  SFLECTIW  PARAMETERS. 


L 

IF (XL0NG-XFMN)620*606,606 

606  IF  IXLOWG-X1WX3608*  V)8  «  670 - “ - 

608  TF1 XL AT -XNMN 1620*610*610 

610  rFtXt*T-XWrx?6T6V6T6i670  - 

616  L  TYPE  -  1 


I  V.  wr*  -  1  v>  *  j  i 

DAY  -  OAY  ♦  700 

KCAST  •  TSTAS  - 

JR*AX  •  NTOT 


I 


I 


TC900 
12000 
T2TTTO ' 
12200 
T7T00 
12400 
17550 
12*00 


C 

C 


If  TSSWIlll  —  1  WRITE 


93 

OUT  HEAOER 


INFORMATION  ON  UNtt  KLTST 


- r  f  T!  s  $  vi  i  Tmrr*  o  ?  *-7Uv*  tv - 

*160  WRITEIKL  1ST  ,  0000  )  I LBBUK 1  ♦  l  v3 I  ,  XL  AT  VXLONG,  XL  TO  ,XLCO 

WRITS  <KLIST,»0O«nLTYPE,*HDIUT5,HP,T5TA5,rCON,0AY,IRR 


C 

C 

C 


If  Y55W (121  •-! ,  WtT'TP  OUT  HEADINGS*  FOR  OUTPUT  WHICH  IS  WRITTEN  IN  CON»S. 


TH** 


"T7700 — - TTTTSWI 1 2  1 7ETT.  - 1  IWff  nTTKt  f  5T»  ROIO ) - 

12000  001 0  FORMATI ’OIREC  PF  TO  SO  DVD  DVH  S" 

T790O  V  7 1  Z  2  N  NOP • > 

1T000  0000  F  OR  HA T | , 1H  *3A4,4F0.3) 

ITIOO  0005  FORNAT ( 1H  ,  '  TYPE  HDHR  SHIP  ISTN  CAST  OAY  ?PR»,/« 


131*0 

4 

2I*,2X,A2,2X,2I*,F8.3,?IS» 

1T700 

*00* 

13100 

C 

13*00 

c 

HTLLARO  SUBROUTINE  TQ  PILL  DATA  ARRAY  WITH  TEHP  AND  SAL  TNI TY 

13*00 

c 

DATA  FOR  ALL  OBSERVATIONS. 

13600 

c 

13600 

WCT-l. 

ii>l  URI 

13617 

N-H*l 

13610 

JTCR-ICRUIS 

13620 

JIST-ISTAS 

T3672 

CALL  L2IJTCR1 

13*24 

CALL  LZ( JISTI 

n*?6 

F^CODF  t  l  2  C»NhHF  1  T  SHF 

11*20 

*  2 

FORH AT ( 4?, AT, AT, * • RE  6  *  1 

15632 

VRTTEf 12.0O?O>n,GNA*E.WGT 

13*40 

8020 

E0RHATU4»A12yF*.2I 

13640 

OPENIUNIT  «KOUT  ,MANF«GNAHE»TYPE*,NFW,,FORH» • UNFORH aTTEO* I 

136*4 

WRITEIKOUTIKHOC, 

1  3600 

tnittf  "■  ■■■  ■  . 

13*90 

CALL  OATIOXItCUNI 

13700 

CALL  CFTDAT(RTP,DATAX,3300,2I 

13000 

*70  RETURN 

13500 

c 

14000 

c 

NSW* 

■*:  CHECK  ONLY  LAT  ANO  LONG  OF  HFADFR  ALREADY  RF AD  AGAINST 

I  VlOO 

“C 

Vr  L  r  v.  T  I  I'N  P  AxA'E  >r  *l  • 

14200 

c 

14300 

00 

TF  |XLONG-XFHN10*,8  7,8  7 

14400 

07 

IF IXLONG-XFNX 109, 09,0* 

14S00 

09 

TFf XLAT-XNHN)8*v03,fl3 

1  4600 

03 

TF ( XL  A T-XN"X> 02,82,0* 

~  TTTOTT 

07  fONTTNUF 

14800 

RETURN 

14900 

c 

1*000 

c 

NSW-4  IMPLIES  SELECTION  CRITERIA  A0OVE  NOT  NET. 

I  *  100 

c 

1*200 

8* 

NSV-4 

I  8  TOO 

1*400 

END 

1*403 

c 

1*407 

REAL  FUNCTION  SLAT 

1*410 

c 

1*414 

INCLUDE  MOXREC.OIH* 

1*428 

1*43* 

1*430 

1*442 


XL  AT-RTSO 
TLATH-ILTSH 

XL  ATH-XL AT"/*000. 
Sl_AT.XLAT»SrCNTTtAT»,XLAT| 


-  FOR  SOUTH  F  VTTT 


AD-A103  892  WOODS  HOLE  OCEANOGRAPHIC  INSTITUTION  MA  F/G  8/10 

VAX-11  PROGRAMS  FOR  COMPUTING  AVAILABLE  POTENTIAL  ENERGY  FROM  C— ETC(U) 
AUG  81  N  A  BRAY  N0001L-76-C-0197 

UNCLASSIFIED  WHOI-81-70  NL 


*1 


94 

15449  ft  €  TURN 

15456  ENTRY  SLNG 

XLAT«ILNS0 

15470  XLAT*«ILNSM 

T54T3  Xm5«XtAYM/S00O.  ~ 

15477  $LNG*XLAT>SIGNI‘XTAT»SXLATI 

- 1 5454  - RTTURW  -  “ - - 

15491  FND 

- PPTOO - (;"»*»•***•*»*»»»>»  ~ subroutine  LUTAl  - 

15503  SUBROUTINE  LMf  A  ) 

- 15504  C  *  *  *  * ♦ *  *  * ♦**♦♦♦ ♦•♦♦♦*>44****  WWW**  ********  ******  ************ * *♦ 

15506  TNTEGER  TA(l),IWn) 

T5512  TFCTAm.GF.TOOT  SO  TO  TOU  -  " 

15515  TFCI  ACD.GE.10I  00  TO  10 

- I55T1J - TTTTTTTT.TTFTTn  50TI - 

15521  RETURN 

15525  TOO  CONTINUE  —  " 

15527  FNC00EC3*2*  rtClin  IAC1* 

~~  T55TU  - TATTT-TVflT -  -  - -  - 

15533  2  F0RNATCII3I 

- 1553b - RETURN - - 

15539  10  CONTINUE 

15542  ENCODE ( 3  »T «  INC  t ) V  I  Af IT  —  1 

15545  TAC 1 )  ■ IH ( 1 1  ! 

~~T5548  TTTIirNATI  THO  *  T  21 

15551  RETURN  J 

- 15554 - r  ■CONTINUE - 

15557  ENC0PE(3,4, INC1»>  IAfl) 

T5560  4  FORNAT  f 2MOOVT1T 

15563  TACllMWCl) 

15566  RETOTTN 

15564  END 


95 


12000 

12100 

12600 

12700 

17000 

12900 


C 

C 

*r 

c 

c 


POTFXlSUft.FOR  FILE:  SUVROUTTNFST FO*  'FBTeN*PCfH.T  POTENTIAL  fNFRGY 
PPOORAHS.  VAX  VFRStON.  N.BRAY . 

mw  »»»»■»  ?»»»»» 

SUBROUTINE  S«I*»VI  A*N,P,O,0R*!FML> 

+  #  *♦***♦♦♦***  ♦  *******♦***♦♦*♦♦♦ 4A444** * 44 ♦  4444-4444  444  4  444444 


T30OO 

c 

TO  TNVFRT  SY"4FTRTC  4ITRTX  F0R~  T  R I  SffGUL  AR  3FCTT0N  IRW'INOFO 

13100 

c 

TN  A  LTNFAR  ARRAY  MJ). 

13200 

t 

FRO*  5YHTNV?,, ,CAC0  *Y50  BY  RUTI5H10SER  VTA  j,‘  NTTYTTST 

13300 

c 

IT40  0 

c 

APTTTL  27  1975  N.  F QFOVOFF 

13500 

c 

mu  O 

01 0FNS  I ON  Ain  *iPTD  *  0!  1 V*MR  ( 1)  — 

13700 

c 

13000 — 

- tntt7-r 

13900 

00  10  I«1*N 

- I4000T 

10  ORITI  -  0 

14100 

c 

SF/FRCH  FOR  PIVOT 

14700 

OO  100  T-l ,N 

14300 

8IGAJ  -  0.0 

73  s  -N  ~ 

14500 

00  20  J*1 ,  N 

14600 

JJ  -  JJ4N-J*2 

14700 

B  -  APS I A I J J 1  ) 

14000 

TF1 WR  l  J 1 1 2  0  ,T2 *70  - - 

14900 

12  T'F(R-BIGAJ)20,20V14 

14'  ft  I G  A  J  -  7 

15100 

K  «  J 

- 15700 

KK  »  JJ 

' 

15300 

70  CONTINUE 

15400 

IF!  RIGA  JU6, 15,16 

15500 

15  TFAU  •  1 

V 1 ,1 M  * 

1  U^tf 

15700 

c 

PREPARATION  OF  FLI  WIYfAT  ION 

T5B00 

16  WRIK)  -  l  - 

15900 

QtK)  -  I./AIKK) 

16000 

»IK)  -  1.0 

16100 

A  l  KK  )  -  0.0 

TVVM~ 

TC^T  »  K-T  .  - 

16300 

TF(K«m5,  19,100 

16400 

160  JK  -  K  -  N  '  " 

16500 

00  30  J»  1 ,  K  N 1 

16600 

JK  *  JK4N-J41  - 

'  * 

16700 

P«  J)  «  At  JK  ) 

BIT  1  H1  M 

TFPTRT  JT71 3,17, 10 

16900 

17  01  J)  -  —A (  JKIRQI-KI 

17000 

00  TO  30 

17100 

10  0(J!  -  A(JK)POIR) 

17700 

3U  SI  IX)  -  0.0 

17300 

19  KP1  *  K*l 

17400 

1C  J  ^  ICJC 

17500 

IF! KP1— Nl 71,71.41 

17600 

71  OO  40  J»KPlfV  “ 

. . M 

17700 

KJ  -  KJ  ♦  1 

17000 

TFfWRTJT 134, 32/3* 

17900 

32  PIJ)  -  AIKJ) 

“  nrooo 

GO  TO  75  ~  ' 

10100 

34  PIJ)  -  — A  I K  J ) 

10200 

34  01  J)  -  -AIKJ)*OriKI  - 

* 

18300 

70400 


40  AIKJ)  - 
FLTWTWITT0N 


0.0 

PROPER 


;s|J 


4 


'! 

$ 


15500 

18600 


41  JK  -  0 

00  80  J-1,N 


liiM 


10800 

“T5900 

19000 

19100 

19200 


bIiB.lt! 


JK  -  JK  ♦  1 
50  A  (  JX  1  -  A!  JK) 
100  CONTINUE 
1 5TJ  FFfWN 
END 


♦  P<J1*0IK) 


19400  C  POTENTIAL  ENERGY  PROGRAP 
19500  C  .  ‘ 

19600  C ***********************************************  ******** 

19700  SUBROUTINE  PAR  AN 

19800  C *************************************************  ****** 


20000 
moo  c 
20200 

“Timor  X 

20400  C 


20600 

20700 

20800 

20900 

21000 


INCLUDE  *  COPPOTEN. FOR  * 


INTEGER  PFOELTA  *PDELT  A 


FORPATf ’OINPUT  NEW  FARANETf RST* > 
T F f  NOY ESI K VH ,XT TX I  .NE . DRETOIN 
HR  ITE(KTTX,20» 

FOPPAT fHJENTER  THE  NUPBER  0F~7FT 
THE  SANE  PARAPPTERS1* 1 


OF  LE9FLS  WITH 


21200 
2T300 
21400 
2 1500 
21600 


c  l  r  uu 
21800 
21900 

22000 

“22100 

22200 


22300 

22400 

72500“ 

22600 

22700 

22000 


c  ttuu 
23000 
73100 

23200 

23300 

23400 


C  31UU 

23600 

27700 

23800 

23900 

24000 


24200 

74300 

24400 

74500 


TF  f  NSECTION. GT.19 1  THEN 
MR  ITEfXTTX ,  22  )• 

FORPATf ‘OPAXINUP  ALLOWED  IS  19*T 

GO  TO  15  - - -  - 

END  IE 


Him 

FORMAT COENTER  THE  PRESSURE  FOR  THE  FIRST  LEVEL**  > 
PEAOfKIN,*)  INfTTALP  - 

NLEVP-1 

HP4EV--1  “ 

NSE-NSECTION+1 


DO  1000  I«1,NSE 
I2-I*NSE 

T3-I*2»NSE  ~ 

HRITEIKTTXfiOOir 

FORWATl^OFOR  35mON*,T4T*  ENTE*  THE  INTERVAL  IN  1 
f  LEVELEO  SURFACES*  *  I 


I  r  p  urT.  1  A 

WRITE tKTTX, 120) 

FTJPPATf  *OENTER  THE  INTERVAL  SITE  IN  1>B  ETJTT  THE  RE! 
READCKIN»4 ) P DELTA 

HR ITEfXTTX, 1401  -  - 

EORPAT  f  *  OENTER  THE  FIRST  PRESSURE  IN  THE  NEXT  SEC’ 


W  OETWFEir 


THE  NEXT  SECTIONS 


NLEVEL* ( IP2-INITI ALP  1  /PFDELT  A 

WRITE  IXTT7,160T  - - - - 

160  FORPATf *OENTER  THE  NUP8ER  OF  TERNS  IN  THE  REGRESS! Off*  * ,  7, 

T  MN-2  I«FLTFS  A  LTNFIR  FIT  TP  ART  HUP  TrTTHTr) - 

READ f  K I N, *  IN 


irin.vii  «o  rfi*n 

C******  COPPUTE  NPR ( II  ♦♦♦♦•* 

NPRm-NLFVEONCEVR'  -  - 

C******  COPPUTE  NPR  C 12 1 

NPRfr2V»7F0ELT» -  - 


l 


24600 

24700 


C.  lOWU 

24900 

'73000 

25100 

752UO 

25300 


25600 

25700 

25800 

25900 

26000 


CDIUU 

26200 

26300 

26400 

76450 

26500 


Z6600 
26700 
2  6  BOO 
26900 
27000 
27100 
— 27200 
27300 
7T400 

27500 
776 OH 

27700 
77TTOO 
2  7900 
20000 
28100 
70  200 
28300 


c 

28500 
20600 
28700 
2  8800 
28900 


29100 

79200 

29300 

79400 

29500 


C  lOUU 

29700 

79000 

29900 

30000 

30100 

30700' 

30300 

30400 

30500 

30600 


compute  Nscm  *♦♦♦♦♦ 

IFf I.F0.11THFN 


"IS  l.  \  1  I"  liU  1  A 

IPREV-INITI ALP 

TNDTF  '  - 

NSC  1 1  ♦!  » - I PREV^NLE VEL  PPFDELT A 

cr*r» c*  compute  NPirr in-  *’••♦#*  - 

NPRU31-NLFVP-I  TPREV/PFDELTA) 


IPREV-NSC! 1*11 
NlEVP-NPRITl. 
INITIALP-IPREV 
(-*♦***♦  COMPUTE  NSCIT7V 
NSCf I21-N 


NSC< I3)-PDELTA7DELP 
1000  CONTINUE 

ITOTAL-IPPFV 

JHAX-NLFVO 

WRITF<KTTX,280)NSFCTI0N,NLEVP,IT0TAL 


X  Lc  VEL  TS  A*V16*»0B.  M 
WPm<KTTX,220) 

220  FORMAT* *0ENTER  MAXINUN  DEPTH  OF  THE  DATA:*) 
RFAniKlN,4)TTNAX 
I *NSECT I 0N>1 

- 17*771 - 

n«3*T 

NPPf  D-NLEVP+5 

NPP  f 1 2 ) » ( I TM*X«500) / I NL  EVP-NPREV ) 

NPRfI3)«NPRFf  -  “ 

NSCm-IPREV 

- RTCTT7T_Tji - 

NSC.<I3)-P0FLTA7D£LP 
NSFCTTON-NSFCTTON*!  " "  ' 

RETURN 

FNO  . . .  . 

EOEPF  SURR  *****  PT5B1  *********************************** 


c  •  ■  . . 

C  CONFUTES  COEFFICIENTS  FOR  A  LINEAR  TRANSFORMATION  X*AX*8 
C  FOR  POLYNOMIAL  OF  ORDER  N-l,  INPUT  ARRAY  C*  OUTPUT  0.' 

C 


ni pension  cm  ,.om 

DO  25  I-l.N  .  .. 

»  •  1.0 


NNI  »  N  -  I 

TFINNI ) 17*17 » 5  - 

5  DO  10  J-1,N*M 
TP J  •  I  ♦  J 

R  •  »FLOATIlPJ-«ll/FLOATI  JIJPB4R 

to  t  -  5  ♦-RRC  rnm - 

1?  TNI  •  I  -  I 

TFITN1I15, 15*20  - 

15  R  -  1.0 

00  to  26  -  - 


! 


30700 

30*00 


iTi  IT.  Til 


31000 
“Til  Off 
32300 
17400 
32*00 


32700 

37*00 

32900 

13000 

33100 


ihiilil 


33300 

“TT400 

33*00 

16900 

37000 


37200 

37300 

37400 

37*00 

37600 


-w 


37800 

17900 

37950 

3797* 

38000 


38200 

IffTffff 

38400 

3**00 

38600 


38700 
38800 
3*900 
39000 
171  Off 
39200 


I  T  JUU 

39400 

30*00 

39600 

10700 

39800 


iki.Mil 


40000 

40100 

40200 

40100 

40400 


20  P  •  A**IH1 
2*  Dill  -  S*R 


C  *IN>  FCN  •  PTSB1  ♦♦♦♦♦♦♦ 

FUNCTIDW  PIN)  - 


y. 

TNTEGERR?  I  A  *N 
f A  -  "77777 
?F|NU,2,2 

1  R  -  FLOAT!  m  AND! N,  17)1  V  T276*. 
RETURN 


llilU 


RETURN 

ENO 

C 

C  ** ******  ***** ** * * ********, 
SUBROUTINE  E0!T< JERRI 


C  EDIT  TE"P  ANO  SALINITY  I*  REGRFSTIOHTaBLE; 
C 

C  JAN  28  197*  N  FOEONOPT 
C 


EQUIVALENCE  IPDIPF.All 

IERR  *  0 
OVPHAX  -  -.17 
00  10  H«81,H? 


PIHJ  -  5<HI 
10  T'HINl  •  TIH) 

l*  DVH  -  0.0 

P*  «  0.0 
THH  •  0.0 


XNOP  -  NOP 
00  20  H-N1,H2 

07*  »  DVH  ♦  DVI'H)  — 
P"  -  PR  ♦  P I  HI 
THM  -  THH  ♦  TWO) 
PTIN)  -  P  C  M  » 


■  I  n 

20  CONTINUE 

OV*  -  OVH/XNOP 
P*  ■  PN/ XNOP 
THH  -  THH7XNUR 
CALL  LSET 


00  60  H»H1,H? 

TTf  AB5 I PTT  H)-PW)-A1#7 1 )  40*30*10 -  - 

CHRP  •  POLYI0VIHI *DVH «  CP*N« 0«  0*6000. 0 1  ♦  PH 

KERP  -  I  -  - 

IE (ISSN 13)131*32*1? 


i 

M 

X 


7<I  VIII 


404*1 

404*2 

404*3 

404*4 


■  ■I  IT  1  A  a  ■  | 


51  *  0ATAX(H^r,'2l 

52  •  OATAKf  H*7T 

53  •  PATAXIH4|*<2) 
TH1  •  THFTATOTTO-’ 


i 


99 


40455 

40456 

TH?  » 
TH3  - 

THETACDYfHI.OAtAXfM, 1),S2VPF) 
THETAin7(H*U,0ATAXXH^lrll,S3,PFI 

* 

40458 

071"  - 

‘  DVAXPEiTHl,Sll - 

40470 

0V2  • 

OVA X PE  *TH2,S2I 

•  4 

‘40476 

0V3  • 

0VA(PF*TH3,S3 I 

40482 

0VP1 

-  X  DVl-OV? 1 /DEL  P 

404^0“ 

07P2 

-  1 DV2-0V3 1 /DEL  P 

40500 

WRITE XKLIST ,3100) DYX  H I ,  PX HI  ,C0RR,0ELTAV0VPl,07P2 

40600 

37 

PI") 

*  C  0**K 

40700 

40 

IEX ABSXTTl HI-THHI- A3* Z2 155,50,50 

4XJB00 

50 

CORR 

-  P  HL Y  (  n V  t  *  J  ,DV  M ,  CS  V,0  .'OV60OO.  0)  ♦  THH 

40900 

KERR 

-  1 

5100X1 

IFXISSWn)  I51„52,5?  - 

'  _ 

X 

41050 

51 

OFLTA 

-  CORR^THXHI 

' 

"WT  Oil 

'  St"  * 

41052 

s?  - 

DAT  AX  X*,?  1 

!l 


4TXT5T 

41054 

4 1055 

41056 
"41058 

41066 

41X174 

41082 

4T090 

41100 


-■ npoxr 

41400 

41417 

41343 

4t75XT 

41400 

41500 

41600 

4T70XT 

41800 

4T900 

4  2. 100 

4?  TOO 

42200 

47750 

42300 

47400 

42500 

47600 

42700 

47000 

47900 

41000 

43100 


“57 

55 


53  •  DVTATflf*lv-?V  “  “  ""  " 

TH1  -  THET4XDVX  4-1 1 , DATAX I *-l ,1 >»S1 ,PP I 

TH?  -  THET  AT  OTX  41  ,047*7X0, 1 1*52  *FFT - -  - 

TH3  -  THETAX0VXH-H.I,DATAXXH>liII,S3,PFI 

OVl  «  DV4T7F,;THIV5T1 - 

0V2  -  OVAX«»F,TH2,S2l 

DV7  «  0VAXPF,TH3,ST)  - — —  -  -  - 

DVP1  -  X  0V1-DV?) /DEL  P 

DVP?  -  X  OV7-0VT1 7TJEL7 - - 

WRTTE(KLIST,3100IDVXH),TH<HI,C0RR,DELTA,DVP1,DVP2 
TTTt-W1  ■  CHRR 


3100 


IFXKERR.FQ.O.AND.IERR.EQ.OI THEN 

JFRR--?  - - 

FNDIE 

TERR  »  IFRR  ♦  1  - 

60  CONTINUE 

IF  IKTRR  170 ,70,15 - 

70  00  75  N««l,42 

51*1  -  PX4I  - 

TC)  -  TH(*n 

75  PX"I  «  07X4)  - 

JERR  •  JERR  ♦  1 
40  RETURN 


F0RPATXF7. 1,F9.3,*  RFPLACED  BY?  * ,F9.3, • 
♦  *  57.  VOL.  GRTTDTFNTST  ABOVE  -  *VF9.T,"» 

END 


CHANXIE  I5t  *  ,E9.3< 
BELOW  4-Y-fpoySl 


♦  *****♦*♦♦♦♦*♦♦♦♦*♦*♦ ******** 

- ^miHUTlNF  ISFT - 

************** ************  ****** 


LEAI5T  SQUARES  REGRESSION  SUBROUTINE  FOR  POTEN. 
PAR  6  1976  N  FOFDNOFF 


INCLUDE  ,CO"POTEN.FDR* 

1  NA  -  N*fN*l I  /? 

L  -  1 

DO  10  I-l, NA 
10  COXTT  -  0.0 
00  12  I  *1 »  N 
CPU)  •  0.0 

l?  ctx n  -  o.o 

15  OO  20  T«l,N 


100 


**■500 

BPU)  -  0.0 

***00 

8TCI1  -  0.0 

**400 

70 

Tontinuf 

4**00 

00  8  1-81,4? 

4*700 

X  -  DV<n  -  0V8 

**800 

4*000 

00  too  J- 1  *N 

TF f  J-l 100,00,04 

*4000 

00 

MJI  -  1.0 

4^  YOTT 

TO  TU  T0TJ 

*520  0 

04 

B(J)  -  X4*<J-«1> 

44100 

100 

CONTINUF 

44*00 

44400 

JK  -  0 

X  -  PT( n  -  P8 

*4600 

XT  -  TTU1  -  TUP 

*4700 

00  8  J-1,N 

44800 

8PCJ)  -  8P(J1  ♦  8 1 J ) *X 

4T4000 

8 t (  j )  -  B T ( J )  ♦.  8(J|*KT 

46000 

46100 

104 

IFfL-l)l05,105*8 

00  7  K-J,N  '  - 

*6  200 

JK  ■  JK  ♦  1 

*6  JOO 

7 

C0(  JK)  *  CQ  (  JR!  ^  BiJIl^B^KI 

*6*00 

8 

CONTINUF 

46400 

IF IL-1 ) 171, I71vt7* 

*6600 

46700 

171 

17* 

CALL  58INVfC0,N*B,BA,8R,IFAIU 

00  700  "-I ,N  - 

46800 

SP  -  0.0 

46^00 

ST  -  0.0 

47000 

J4  -  8-N 

47100 

00  17*4  J-l ,N 

47?00 

47100 

17*0 

PF ( J— 8)17*0, 1740, 17*2 

JH  -  J8  ♦  N  J  J  ♦  r 

47400 

GO  TO  17** 

*7400 

17*7 

J8"  JW  •*"  1 

47600 

174* 

SP  -  SP  ♦  C0<J4|*flPfj| 

47700 

17*4 

IT  -  ST  ♦  C0CJ874FTTJ7 

47800 

47000 

700 

CP(8»  -  CP f 8|  *  SP 

CT (8)  -  CTf8|  ♦  ST 

48000 

C  C08PUTF  RF5I0UALS 

B  j  ||i|iB 

T7T 

Sr  -  0.T5 

48?00 

RT  -  0.0 

48100 

00  184  1-81,82  - 

48*00 

FP  «  0.0 

*8400 

FT  -  0.0  - - 

*8600 

x  -  i)vm  -  ox* 

aai .  if 

*8800 

NJ  -  N-J*l 

*8000 

FP  -  FP  *X  ♦  C^fNTI  ”  -  ”• 

*0000 

180 

FT  •  FT**  ♦  CTWJl 

*0100 

sp  •  pm  -  pp 

*0200 

PTII)  •  SP 

1  ii  M  L  >  M'B 

ST  -  THH  f  -  FI 

*0*00 

TTIH  -  ST 

40400 

IFrL-KSW)lU4f181il81 - 

40600 

181 

RP  «  (SP-P81482  ♦  RP 

40700 

RT  -  CST-TH8)**?  ♦  RT 

40800 

184 

CONTINUF 

40000 

t  ■  L  ♦  1 

40000 

IFIL-KSW115, 15,105 

40100 

104 

XN  -  NOP  -  M 

40700 

40100 

71  -  SORT  (RP/JCN) 

r?  •  soRTfirmon 

n  50A60 

50500 


50700 

50100 

50900 

51000 

51100 


7ldOU 

51300 

“51500 

51500 


IFtTSSW<6ll300.150.350 

ioo  no  no  i»i.n 


BUI  ■  ABS!CMm/l71*SQ*T<AB5fCOUm>) 

Bern  -  mirrin>7T77^oirri**5<co<nvu> 

310  CONTINUE 

HR  ITT  f  KT  T5T ♦31001  PT.N . 50P".  T  5  m  .K-l  ,51 
WRITE  1KLI5T.3110MBRI  Kl.K«l»N) 


3100  FORBATIFB.O, IB.I3.BF8.il 
1115  FHRNAT  f  ITJT.TJFB  Ill 

FNO 


102 


Appendix  C. 

Program  Listings  for  PEPLT 


PEPLT/REPLS! 
K  PR  ISW 


103 

SHORT  OOCUHENT  AT  ION 

JSW  KLIST  DESCRIPTION 


jcall  t*ble  subroutine*  ltst, 

PLOT ♦  OUTPUT  IN  HAP  EORNAT 
PLOT  IS* 

Ai*V«PL<NXiT»A?*VPBLrNX?T*A3<*VRBLfMXi3MA4PC>rRECVl» 

Bl*VRBL(NYl)*B2*VRBL<NY21*B3*VRBLnim)»B4*C*IREC.'?) 

-  -  CHANGE  PARAMETERS  for  plot 

INITIALIZE  PAR-AHETERS  TOR  PLOT 

-  CHANCE  DATA  SELECTION  VARIABLES 
CHANCE  PLOT  PA'RAHETERS 

-  call  avrgs  Subroutines  horizontal 

AVERAGES.  FOR  DETAILED  OOCUHENTA- 


9SO 

1000 

1100 

r?oo 


AVRGS  BRANCH. 

SET  TSSW  (SWITCH*  ARRAY 
RESTART  MAIN  PROGRAH 


TOO  f>H>LT/Bf PLS:  BRANCH  3 — PARAMETERS — SHORT  DOCUMENTATION 

300  K  PR  3  ISW3  DESCRIPTION 

5W  l  '  O  '  ~FrTnT'OUT  PARAMEtERS  ON  KLISff  STORE  COMMON  TO 
SOO  FILE  KPLCM.  RETURN  TO  PEPLS. 

600  1  INPUT  VARIABLE  SELECTORS  NX l  TO  NZ  3 

700  2  ENTER  A1  TO  kb 

TIOO  2  2  ENTER  Bl  TO 

1200  3  2  ENTER  Cl  TO  Cfe 


100 

200 


250 
300 
600 
500 
600 
700 
800 
000 
1000 
1100 
1200 
1300 
TW 
1500 
1600 


105 

PFPLf/AVRGS:  SHORT  00CUMENTA T ION 


KBR  ISW  JSW  KLTST 


DESCR IRTION 


6 

6 


0 

1 


2 

3 


6 

5 

6 
7 


• 

1 

0 

T 


LU 


SHORT  OOCUMENT  ATI  ON 

READ  FROM  DATA  FILES  VARIABLES  IN  COLUMNS 
JSW  TO  KLTST 

ZERO  COLUMNS  JSW  TO  KLTST 
INITIALIZE  AND  INPUT  PARAMETERS 
INPUT  PARAMETERS — NO  INITIALIZATION 

OTVTDT  COrDHWr-jry  TO-  IZUITT  rv  CCOTHTT  6 

AOO  COLUMN  JSW  VERTICALLY  FROM  THE  TOP 
PR  rNT  OUT  DATA  ARRAY  ON  UNIT  KLTST 
CALL  NCAR  PLOT  PACKAGE  TO  PLOT  ONE  FRAME. 
OFF  AULT  IS  COLUMN  JSW  AGAINST  PRESSURE. 
GENERAL  PLOTS? 


X*B1 *C (  I.  JSVM+B2RCI I  •NX2')  ♦B3*PR 
Y-ftl*pP4A2*C«T*NYl)»A3*CC I.NY2» 
MULTIPLE  PLOTS  ON  ONE  FRAME  ALLOWFO 


1700 

1800 

1900 

KBR 

ISW 

8 

JSW 

KLIST 

COMPUTF  DYNAMIC  HEIGHT  ANO  POTENTIAL  ENERGY: 
ASSUMES  OVI  IN  COLUMN  1  (NV(l)-lB)  ANO  DVE 

2000 

2100 

9 

* 

* 

IN  COLUMN  ?  (NVf?)  -T9TT 

INTEGRATE  COLUMNS  JSW  TO  KLIST  AS  A  FUNCTION 

2200 

2300 

10 

• 

1 

OF  PRESSURE 

SUBTRACT  REFERNCE  LEVFL  VALUE  CfJREF.t)  FROM 

2600 

2500 

11 

1 

_ 

COLUMNS  JSW  TO  KLIST 

INPUT  JC1.CR1  TO  JC6.CR6 

7600 
2700 
2800 
2900 
3000 
3100 
3200 
3300 
T600 
3500 
3600 
3700 
"TROD 
3900 
6000 
5100 
6200 
6300 
"6600 
6500 
6600 
6  700 
TROO 
6900 
5000 
5100 
5700 
6300 
5600 
5500 
8600 


XT 


12 

13 


PERFORM  THE  EOtTOSTT  MG  COL  URN  "A  DOT  TT  ONI 
C<T»  JC1»-CR1*C!I,  JCH*CR2*CI  I  VJC 2 1  ♦ 

CR 3*C 1 1 ♦ JC3 1 ♦CR6RC (  JR EE WJC6) 

RETURN  TO  PEPLS 

INPUT  COLUMN  R»S  AND  CONSTANTS  TO  PERFORM 
THE  FOLLOWING  COLUMN  MULT IPL ICATTON: 

C(  1REC,  n-CUNIRCI  IKbC»8  >YHJN7*C(  IREIC»  JI  * - 

C0N3*CI  IREC.KJ  .  INPUT  ORDER?  I,J,K,'C0N1 
CUN2, CONST  AN  INDEX  Ht  JtOR  KI  DEVALUE  -1 
PREVENTS  THE  INCLUSION  OF  THE  ASSOCIATED 
AND  FOLLOWING  CTJUJNNTYT. 


KRR 


ISW 

XT 


JSW  KLTST 


OUTEUT  FIRST  THREE' COL 0MN5~ IN  MAE  FORMAT? - 

ACCESS  TO  THIS  BRANCH  QUERIES  WHAT  HORIZONTAL 

LEVEL  »  TS  DESIRED 

NOT  USED 

INPUT  X,J  ~ 

CUREC*  J)-C(  IPEC,  J)»RX.  (SHOULD  FOLLOW 

5TT51I  TMMpD TA TEL T  IN  EXECUTION;! - 

ERROR  SUMMATION?  VERTICAL  INTEGRATION  WITH 
(DELTA  PI*R2  TS  THE  INCREMENT 
INPUT  DELTA  P  INTO  C<TRECf5> 

EXCHANGE  TWO  COLUMNS  HE  C 
CHANGE  A  S INGLE  ELEMENT  OF  C 

CTTMEuTF' STANDARD  DEVIATION-  OF  X  GTVFN - 

X-BAR  IN  C( I REC  *6 )  AND  X*X-BAR  IN  C!IREC*3». 

RESULT  IS  STOREO  TN  CITRECilI. - 

CALCULATE  DYNAMIC  HEIGHT  AT  A  GIVEN  LEVEL 
RELATIVE  TO  PRESSURE  CORRESPONDING  TIT  TREE 
AND  OUTPUT  IN  MAP  FORMAT t ALONG  WITH  VARIABLES 
FROM  COLUMNS  3  AND  6  AT  THAT  PRESSURE .' - 


15 

16 


1 

0 


17 

IB 

19 

20 

T T 


22 


1  l 


COLUMNS  3 
NV< 1 1  MUST  BE 


AND 


18 


NVf 21-19. 


5700 


COUMFPIT.FOR  FILE:  OT  ME  N5TOW,  COMMON  TND  EOOlTSttSCE  POW  PEPCT 
DISPLAY  PROGRAM.  N. BRAY 

- PARAMETER  KCM«943 - 

PARAMETER  JDIM*1'00 

TWIRACTFPPB  DOIT  " 

CHAR  ACTERM2  GNAMp 
DIMENSION  C$Tf6V4>,VIMT5l 
DIMENSION  KH0GM50)  ,KBUF(46) 


404 

475 


COMMON 

COMMON  KIN 

BF GINNING  OF  STORED  COMMON 


600 

TOO- 

800 

iroo 

1300 


COMMON  NY1  ,NX?„NX3,NY1,NY2,NY3»N71,N72,N73 
COMMON  ISH,  JSW,“NV,MWVTN7ND 

COMMON  YW I N  ,TM  *Y ,'YM T N , TM1Y 
COMMON  A1 ,  A  2  «  A  3  «*A4  ,  A5  «  A6 


1500 

T600 

1700 

T80TT 

1900 


COMMON  C1,C?,C3,'C4,C5,C6 
COMMON  P1,D2»D3,'04*D5,D6 
COMMON  X1,ZLT0,,7LG0,DAV,XPL*YPL 

COMMON  WT  "  - 

COMMON  NV<6) ,NX(6),AV,BV,CV 


2100 
7700 
2300 
2400 
2500 
‘  7500 
2633 
7646 
2683 
7700 
2800 
~  7900 
3000 
3TO0~ 

3200 

0700 

3400 


3600 
— T6I6 
3632 
— 3050 
4100 
— 4700- 
4300 
-  0400 
4425 
“  4400 
4475 


COMMON  CRI*CR2mCR3»CR4 
COMMON  JMAX,  JREF 
COMMON  NX4  «  NY4  ,iNZ4 

COMMON  IVlfIV2,m,  JBOF  ,  JHD1F*700~ 

COMMON  JSHPt  61 „0AY1,DAY2,PNIN,PHAX 
"COMMON  XF MN'» YFWXWNMN rSNM' 

COMMON  C(  100,61 
COMMON  ISSWI161 

COMMON  PL A  BL I 101 , XL  ABL ( 10),YLABl  I 110 ) 

COMMON  LTYPF,MNOR, ICON , I SMP • I C AST ,X0 AY , 1PR ,LPR 

"COMMON  XL  AT,  XLONC,  W6T,XLT0»~Xt.'G'0 - 

COMMON  LBBLI  3>,I.BLfl3)  ,N5Cf  601  ,NPRI60UNSECTI0N 

common  pf,to,so,ovo 

COMMON  PT",  TWF,"SF",TJTF -  -  -  -  - 

COMMON  PM,  THM,SM,*fJVM 


COMMON  CP(8!,71,CT<8),Z2,Fl,F2yF3 

EMIT  fTF  STORED  COMMTJN  . . . . 

COMMON  XDATI 108V7) ,YDATt 100,7) 
COMMON  TOEtP,OR-  - - - - 


COMMON/CHARACTER/  CNAMEC200) ,00C f 10 ) 

FOUIVALENCE  C A1 ,CSTI , I VR ,PF » 
MOUTVALTNCF  f KHDG,LTYPFirnniUF RETYPE ) 
FOUIVALENCE  ( KTTX, KPLC  M ! 


I 


C  PFPLT  P*OG  ***♦♦*♦♦**  SFPT  1<J7T 


t 


J 


TOC 
200 
— TtJtr 
400 
"“WO" 
600 
roc 
800 

- WO" 

1000 

rioo 

1150 
1700 
1300 
TWO 
1500 
11500" 
1700 
1800 
1900 
"7000 ' 


C  PFPLT  SUBROUTINE  **♦♦♦♦♦♦ 
SUBROUTINE  PERES' 

T  ************************* 

C 

c 
c 
c 


SEPT  24  1977  *♦♦♦♦ 


RROOfrA"  TO  PLOT  POTEN  VARIABLES. 
JUNE  27  1976  N  EOEONOFE 
VHXTF1?TTTTN--N0V  I9-80T 

INCLUDE  •CO«PERLT.FDR# 


40 


120 

TTOTT 


MRITE(KTTX,40) 

FORMAT ( 1H  ,  *!-NTTIALl7FirCTAy  VARUBtf  SELECTION  PARAMETERS 
f YES  OR  NO ) ? M 

TF  (NOYES  ( KlNtKTTX)  .EO  •  1 VGD  TC  106 
WRITE(KTTX,1?00»KBR, ISW*JSW.KtlST,KTP*KDUT,KlN 

'  ~FOTR WATT  * P LPL' Tt'KBR  ,  ISVi  TSWi KUTST7K  t  P ♦ROOT ,K  I WT77 - 

♦  6X,3I3, 15, 13*14,13) 

KLIST  -6 
KOUT  -  8 
KTP  -11 

RFA0(KIN,*)K8R',  ISW,JSW,KLIST  »KTP,  K0l)T  »K  TN 

- fRK  r-7  yy  gTar7 - 

2100  rE(KBRU20,fi0(JV130 

7700  130  GO  TO  1200. 70,30,400, 50C,606,T00TKRR 

2300  C  *♦♦*♦♦*♦*♦♦♦*♦♦+****#*♦**♦♦♦♦*♦***♦*♦****♦♦♦***♦♦*•♦•♦*♦**•*♦*♦*** 

"7400  C  INTTYALT7E  ' 

2500  C 


nuo 
3400 
“~T50C 
3600 
"  3700 

3800 

1116 

TrTN»-7u 

XMAX  -  100.0 

YNTN  -  0.0 

YMAX  -  5000. 9 

A I  -  1.0  ” 

B l  -  1.0 

LI  - 

I  .o 

4000 

01  - 

1.0 

4100 

07  - 

1.0  " 

4200 

03  - 

1.0 

43TT0 

04  - 

1.0 

4400 

05  - 

1.0 

4500 

“06  - 

r*o 

4600 

NX  1 

12 

4  TOO 

NX? 

0 

4800 

NX3 

0 

- 4900 

NY1 

19  ~  ‘ 

* 

5000 

NY7 

0 

TOO 

NY3 

0 

5200 

Nr  i 

25 

5300 

NZ7 

0 

-- 

5400 

N73 

0 

5500 

MV  - 

3  -----  -  ■  . 

-  .. 

5600 

MW  • 

0 

5T00 

'  ~KTP 

■"TI - 

5800 

CALL 

OAT  A  f  -1  »<IEOF  I 

5900 

GO  TO 

120  “  “ 

6000 

C« 

***** 

****** 

-  5100 

700 

CALL 

table  —  •  -• 

6200 

GO  TO 

170 

6  iuu 

T 

**** 

****** 

r**“BRANCW  T--CNINGE  'D’ATl  5ELECTITJN  VARIABLES'  ******* 

6400 

20 

CALL 

OATAfO.lEOFI 

6500 

GO  TO 

170 

- 

6600 

C 

6700 

30 

OPENIONI T  -50  i.TCSWE»-*p-E  FLS3  .'01TCrt~  fTY  P  F-^OTO^  tREyOONlT) 

-  -  — 

~6iW 

6900 


7100 

7200 

7300 

7*00 

7*00 


7700 

“7100 

7900 

0000 

8100 


8300 

8*00 

8500 

8600 


(UTr 


00  3350  N-1,200 

REA0C50,  3  3  25,'ENU- 33*0 1  (DOC (  I  >Vf ■! #9) 


W 

3350  CONTINUE 
3325  F0R8AT (9A 8  I 
3330  FORNATflH  ,9A81 

33*0  CLOSE  (UNIT. 90) 

300  WRITE(KTTX, 30001 


tltltlil 


J  li  t.llllLl 


.1.41 


KX  -  * 

RfAfMKtN,*)K*R3, 13W3V  K  X,N  V7NW  ~  " 

IF(KBR3>30, 350*31 

31  IF  (ISW3-1 1  32,32,7* 

32  HRITE(KLIST,32001NXl,NX2,NX3V»fYl,NY2vNYl,NZl,9(72,W73 


iiii  i.r 


:  la  i 


k»AU 


8700 

3* 

SHOO 

3*00 

8900 

9000 

35 

9100 

37 

9200 

38 

9300 

t 

9500 

350 

9700 

9800 

9900 

10000 


10200 
TU70TJ 
10*00 
10*00  ' 
10600 


10800 

T090TT 

11000 

TTTOO 

11200 


113UW 

11*00 

IT50O 

11600 


IF  ( ISW3-1 1  3*,33,'30 

R  E  A  0  (  K I  N,  * )  NX  T*NX 2  * N  X  3 , NY  1 , N Y2 ,’NY 3 , Nf  1 4 NZ 2 , NT 3 
CO  TO  300  _ _ _ _ 

WRITECKL  IST,3*00)KBR3,(C5T(  JCVK8R3I,  JOT,6» 


Vile, 

TF( ISH3130, 38,35 

RFAD(K!N,*MCST!  JC,K8R3>,  JOl,* > 
GO  TO  300 
KRPl  -  KBR3  ♦  1 
IF ( KBR3— KX I 3*y3*, 350 


WRITE!  10  UIKPLCN 

CO  TO  120  - 


C  ♦♦♦♦♦•♦♦♦•♦♦AVERAGES  f* 
*00  CALL  AVRGS 


miirm’ 


*♦♦♦# 


11800 


k  t.'ryjyj 
12000 
17  TO  9 
12200 


C5  ♦♦♦♦♦♦  SET  ISSW  SWITCHES  ***♦*♦ 

5000  F0R*ATf2(lH  ,X,16l*,/),4  ENTE*  K,ISSWfK>*» 
REAOtXTN,  *1  (X^ISSWfTn  ,W-r7T6I  ~ 

CO  TO  120 


WAIN 

600  RETURN 

C  ♦♦*#**♦***  EXIT  PROGRAM  ♦****♦♦♦**♦♦ fir *  *  * ****** 
700  WRITE ( KTTX,7000 1 

TFINOYFS  ( KIN, WTTXI . NE .11 CO  TO  120 - 

STOP 


iuwu  runn*  i  i  m  ,’emi  rn 

C**  PPPLS*  SHORT  DOCUNENTATI  ON — BRANCH  0  ♦  *♦*♦**•♦♦♦♦*♦♦ 
EOU  OPEN!  UNI  T^SO  ,N«HE *  *  P  EELS'.  OPC 4  ,'TTP  E  -  * BCTT*  ,  R 

00  850  N-1,200 

READ(50,”875,_EN9-r817T TDOCI 1  I  »I*I,'9) - — 

WRITf!KTTX,830l(D0C! I1,I«T,9> 


CLOSE (UN IT -501 
FORNirmm 
FORNATCIH  ,9*51 
GO  TO  T70 
ENO 


12*00 


X  TVTirr SOBPWO  G  *  *********  ♦»***»♦»*******  *  **  *****  ****** 
SUBROUTINE  AVRCS 


*00 

“TOO"’ 

600 


C 

C  mi  W0RT70NTAL  LVFRAGF5  C0PPUTFLT3T1ND  PLOT.’ 
C  JUMP  27  19? 6  N  FOFONOFF 

C  TDr^rFRsroD— nuv  ttbo:  nvbrat - 

Of*ENSION  0(6) 


Hdlf  Vlt.ll 


1000 

1050 - 

1100 

— ttoo  x 

1700 


1  5VU  t 

1*50 

1500  C 


OTMENSION  XYN(*1 
CHAR  ACTER  * 12  U0TNIWF 
TNCLUOE  *CO*PEPfcT.FOR* 

EQUIVALENCE  (DtVD) 


CHARACTER*^  IDSTN 


1600  10  G0T0 < 100, 200, >00. *00, 500,600, TOO, 800, 900.1000* 1100*1200,1 300* 

1700  *  l*0O,TSSO,ROOTTTOO,TBWa9WT?2WO.21O0^2OlJ*15l>(rPrSir 

l«00  C 


II11I111I21 U 


i  l.l*: 


:ITI1ITTTTTTI1T1 


2000 

2700 

2300 

TVOO 

2500 


100  CONTINUE 

DO  101  K-l.NO  . . 

READ! 12* 1011, END-1012IM*GNAHE(K)»WT 
1011  TDRNATII*,112r?F5.Tl 

GNANE(V) ( 9*12)-,.AVG* 


2625  GO  TP  1013 

2650  101?  CONTINUE  -  "  ' 

2675  NO  -  K-l 

T6B7  REWIND  1? 

2700  1015  CONTINUE 


i  - 

2900  IFOF  »  0 

5000  OPEN!  If  NT  T-RTP  ,  NA  M  F-G  N  A  MFTNST  IvREAD  0  NLY  *TYPF  -  ffTLO1 

3100  ♦  *  flNFQRN  A  TTFO  *  »PRR-16  8  ) 

T700  1 02  CALL  OAT  ACT  »TETJFI  -  - - 

3300  IF!  IE0FI165, 105*105 

— y^OO - TTT5 - WT  -  T.’O - 

3500  IF(ISSW(15IU10^115,115 

3500  HO  WT  -  WGT  - 

3700  115  DO  160  I-JSW.KL1ST 

— 3900 120  XT  -  WBLINVTrrr  - -  - 

*000  C(  lREC*n-C(t*FC«T>  ♦  Ofl)  *WT*f  AV*XT*  wnr*cv**T>  * 

’*ioo - 1 — mrBciNxm  n - 

*200  160  CONTINUE 

— *700  00  to  102  -  - - -  - - - 

*350  165  TF< TSW.E0.221G0  TO  BOO 

-*755  GO  TO  170  - -  - 

*382  16B  WRTTE(KTTX,*)*ERROR  READING*  tGNAME f  N5T1 


1  (  V  R.  IAIN  1  1  OUT 

*600  WRITE(10*l)KPLC* 

*700  ITO  GO  TO  1500  - — -  - - 

*800  C  ♦♦♦***♦♦♦*♦  »?  ZERO  TA0LF  SET  PARAMETERS  ♦****♦♦*♦* 

*900  200  00  210  l-JSN*XtTST  - 

5000  DO  210  J-1,100 


-»OLD’,FOR*> 


5200  IF(  ISW.FO. ??. AND.LFILE.EQ.OIGO  TO  170 

5700  GO  TO  1500  - 

5*00  C  **♦♦•♦•♦♦♦♦♦  *3  SET  PARAMETERS  ♦*♦♦♦♦♦♦***♦♦*♦♦♦*♦*♦♦**♦ 

5500  -*00  ITT  7510  720*3702710^  - - - 


in 


•5600 

5700 


5900 

6000 

6100 

6700 

6500 


6500 

6600 

6700 

6000 

6900 


u«m«i 


7100 

7700 

7300 

7*00 

7500 


r  ouu 

7700 

7100 

7900 

8000' 

8100 


Mtli 


8300 

0600 

8500 

8600 

8700 


*1 


9500 

9600 

9700 

9800 

9900 


10100 

T0700 

10300 

T0600 

10500 


IUOUU 

10700 

10800 

10900 

nooo 

11100 


11300 

11600 

11500 

T160O 


310  NO  «  1 

NVfl)  -  51 


NV (  3 )  -  86 
MV l 61  -  87 
NVI51  -  63 
MVf6)  -  -1 
00  317  1-1,6 


JC1  -  l 
CRl  -  1.0 
JC 7  -  7 
C»?  —1.0 
JC3  -  3 


JC6  -  * 
C*6  -  1.0 
AV-1. 
BV-0. 

cv-o. 


JEFF  -  50 

370  TFt  JSW)360,3?5»VT25 

3?5  MR!TE(KTTX,3r001NO,1NVfKl*K-lW6l, JREfUJMAX 
RFAOI KIN ,  *  1  NO  ,r  f  NV  IX 1  ♦  K *1 ,61 ,  UTEF,  JMA* 

330  WRITE(KTTX,33001AV,8V,CV, (NXm,I-l,6) 


3*0  MR  ITECKTTX, 36001 *1,67, A3, 81, 62*83 

READ!  KIN,  ♦  1AI  *I7V1T,  8 1 ,87183 
WRITE  f  KTTV, 3500  INK 1 , NX?»NY1,NY? 

RFAfUKIN,  ♦ )  NVT  /NX?  ,NY1  ,NY  7 - 

775  GO  TO  1500 


3300  FflRHATIlH  ,  •  «V^8  V  ,  CV  ,  NX  t 6  »  *  ,  f  V3F6. 3 , 61  3  V 

3  600  FORMAT  (IK  ELUT  EAR  AN  FIFE  5: - 61 - 62 - 

♦  B1  87  83*  ,  /»1:6X,  6F9. 31 

3500  FORMAT  CYH  ,*  WXI  NXZ  NTT - NV7r,  776T5T 

C  ♦♦♦♦♦♦♦♦♦♦♦  »6  AVER AGP  TABLE  ♦♦♦♦♦♦♦*♦♦**•*♦♦**♦*♦**♦♦ 


TFlCt J, 6 1)605,615, 605 

605  00  610  T-J5H,KL'T5T  - “ - 

6io  ru,i)  -  e t j,i i/ct j,Ai 

615  JMAX  -  J  -  I  - - - 

IFflSSMf?)  I  670 ,’1500, 1500 


■  l  v  »»»  •  »  u  ,  »▼  »  t  /  t  jit, 

6?5  FORNATtlH  ,6113,7X1) 

GO  TO  1500  - - 

C  «5  A 00  COLUMN  JSH  ♦♦♦♦♦♦♦*#*♦ 

500  TO  510  J-7,  JMAX  - 

510  C  t  J, JSW )  «  CtJ-lVJSW)  ♦  C  t  J, JSM) 


*6  LTST  TABLE 


MR!TEtKLIST,6055)N0, JRFF, JNAXVtNV tK ) ,X-1, 6) 
00  610  J- l , JMAX 


WRITE(KLIST,6050) J,KP,(C4 J,K)yK-l,6) 

610  CONTTNUF  - 

GO  TO  1500 

6000  FORMAT  I1H  ,13*61  - 


$ 


-VI 


't 

m 


□  TTT(n> 
11800 


1  nuu 
12000 

12200 
~  T71TJO 
12400 


12600 

T7700 

12800 

17*00 

13000 


l  3  IUU 

13200 

13300 

13400 

T7B00 

13600 


13800 
13000 
14000 
“14100 
14200 
— 14300 
14400 
14300 

14600 

T4T00 

14800 


i  i-»uu 
16000 
T8100 
18200 
T57UO 
18400 


18600 

T8700 

18800 

13*00 

16000 


161UU 

16200 

T63O0 

16400 

135X70 

16600 


•  V  '  W  V 

16800 

16300 

17000 

ITtOO 

17200 


1  I  JUV 

17400 

17800 

17600 


6080  FORMAT ( 1 3  iT5*7X» 6E10.  41 . 

6088  FORMATUH  *314*6X8) 


e  ***********  # 7  plot  table 

700  CONTINUE  ~  - 

JM1N-1 

’  '  NTURV-l  -  - 

WRITE(KTTX*-7000) 


IFfNCURV.CT.6)NCURV«6 
WRITE  f  KTTX*7610)PLAB[T 
IF  f NOYES IK1N,«TTX) .EQ.l ) THEN 

RE4Q1  KIN* 7020 IPX'ABC  —  . .  "  . 

CALL  STRIP(PLABL) 


n  u  i  r 

WR  ITE  I  KT  TX  *  70  30) 

IF (NOYES (K  CN, KT  f  X )  . F 0 . -T ITHEN 
WR  ITE(KTTX,7040)X*fN,XMAXiYN!N,YNAX 
R  F  A  0  (  K I N  ,  *  lXMf  N’,XMAXr,YM rN^YffAK 
CALL  AGSETF  (6KX/MT*N.  ,XHIN) 

TaCI 

CALL  AGSETF ( 6HY/MTN. ,VMIN) 

CALL  AGSETF  (frNY/NAX.  *¥MA70  ~ 

FNniF 

WR ITF (KTTX,?080)XLABr  " . 

IF (NOYES (KTN,KTTX).EQ.l ITHEN 

~  R  F  A 0  f  KTN  *  70231  XLTBt - 

CALL  STRIP(XLABL) 

ENOIF 

WR  ITE (KTTX, 7060) YLABL 
TF  f  NOYF S  ( K  T N ,KTTX1  .TO TT TTHFN 
RFA0(KIN,702O)YLABL 


LIRA 


FNOTF 

TFT  UP  PLOT 
CALL 
CALL 


LABEL  - - 

A  GSETF ( l 1HL ABEL /NAME • , 1HT) 
ACSFTF  (1 7RL  TNE  /  NUMBER  .V.  85  ) 


PARAMETERS 


E7MXT  PLOT 


Laiaa 


I  ff  8A  8 


CALL  AGSFTFI 4UR0W. *2. ) 
CALL  AG3ETEr6HrRAMF.  ,71 
RF AO  DATA  INTO  PLOT  ARRAYS 
00  710  K-1,NCURV 

WRITE(KTTX,7070) JSW 


IW‘ 


TF(TSSW(8)  .EQ.-l ITHEN 
WR  ITE  nCTTY, 70301 
REA0(KTN,709O)ICHAR(K) 

FNOTF  -  - 

I  JM-0 


I JN-I JM*1 

PR*ELTTA  TT  JPRTT*RTPR  ,'NSEC1 
XOAT( I JM,K)-Bl*C( J*JSW) 
YOATI  T  J3,1T7-Rr*Rir  <r~KT*\ 
710  CONTINUE 


♦  B2*C(J,NX21  ♦  B3*PR 
C  JfWTl  )  *  *3*CT7,NT2T 


CALL  AGSETF (8HY/0RDFR. *1. ) 

TL'SE  - 

CALL  AGSETF ( 8HY/0R0E  R. ,0. ) 
FTffiTE  ~  - 


+  '  #  i  '  .  i.  m  1 1, 


113 


17800 

17900 

18000 

18100 

moo 

18100 

TF400 

18500 


CALL  ANOTAT ( XLAftL *YL A8L*0*0» 0*0. 1 

CALL  F7NXYIX0AT,YDAT* JDIN,NCU*V*T  JN,PtABLl 

CIUL- AC'Gf  TM  t5H5EC0ND'A9Y7uSF*.  1 - 

TEf0.GT.XVNdl.'AN0.0.LT«XYNf2)l  THEN 
CALL  LTNENCAIM0.*XYMni,0 .,XYNf4 H 
FNO  IF 

TEUSSW!51.F0.-<1)THFN 
00  720  I«1  * NCURV 


— muoTj 

18700 

18800 

18900 

19000 

19100 

720 

- CALL  POINTS  UTOAT'i  r*TT*TPTT  ITWTUIJW*  1 CWWTT  IT+OT - 

CONTINUE 

END IF  '  “  . 

CALL  AGSE  TF ( 6HX/N ON. « l . E36 I 

CALL  AGSETE ( 6HX/NAX. *  1  .E36 1 

CALL  AGSETEI6HV/NIN. «1.E36I 

— 

- 

19300 

CALL  ERANE 

19406 

GO  TO  1500 

19500 

C  FORNATS 

19600 

7000 

FOR  NAT  1 1H  * •INPUT  *  OF  CURVES  lN  THIS  PTOTCNAX  15  61? 

19700 

►  AND  INDEX  OF  FIRST  POINT* *1 

- 19800 

70TTT 

FOFN'A'T  TTR  *  'CHANGE  PLOT  L ABEL’T "DCOT  V!  FL  I5ST*774W 

*’1014) 

19900 

7020 

F0RNATU0A6J 

20000 

7030 

FORNATdH  ,*05F  DEFAULT  AXIS  PAR  ANETER'S  ? *  1 

20100 

706  0 

FOPNATflH  ,’CURRENT  VALUES  OF  XNIN,XHAX,7HIN,YHAXY*,7, 

4F10.31 

20200 

7050 

FORNATdH  * *  CHANGE  X-AXIS  LABEL?  OLD  LABEL  ISt*,7*4M 

,10141 

20300 

7060 

FOPNATdH  ,'CHANCF  Y-AXIS  LABPL7  OLD  tATBEL  I3*N2*4H 

* 10A4 1 

HiiLliIfl 

— 

20500 

7080 

FORNATdH  *  ’INPUT  IDENTIFYING  CHARACTERS  1 

20600 

7090 

F0RNATIA1) 

20700 

C  ***********  *8  CONFUTE  OH  AND  PE  *♦*♦♦♦♦*******♦*** 

20800 

800 

PPR  •  0.0 

¥■* 

20900 

OEL A  -  C  d  *  1 1 — C d  *  2 1 

N  1 

1*1*1*  BP 

OFLB  -  OfcLA 

•  ' 

21100 

00  820  J«1,JNAX 

21200 

805 

PR  -  JPRU,NPR  wNSECTIDNl 

21300 

OFLP  -  PR— PPR 

2140  0 

OFLA  -  C(  J*IV-*CI  J,71 

21500 

DHX  -  0.5M0FLA*DELB1»0ELP 

1111  |  in.  — —— 

21700 

IFfJ-11815  *  819*>815 

7TBOO 

810 

CI1.I1  -  DHX 

21900 

Cd*21  »  PEX 

77000 

GO  TO  817 

22100 

815 

CIJ,il  -  CIJ-i*U  ♦  OHX 

C(J*21  •  CIJ-IV2I  ♦  PEX 

22300 

81  7 

DELB  -  DELA 

27400 

820 

PPR  -  PR  . .  '  '  .  '  '  - 

—  ‘  “  ’ 

22500 

TFdSM.EQ.221  THEN 

77575 

KLTST-7  -  -  '  '  “ 

22550 

GO  TO  1000 

* 

77575 

FRT5TF 

22600 

TFf  TSSMI 2 1  1825 *'1500  *1500 

% 

77700 

875 

MRTTFI4*4?51irBir?T5ir,  J5H*KLT5T 

- - - - — ~~ 

■  ■  .-M 

22800 

GO  TO  1500 

72900 

— 

‘ 

23000 

900 

00  950  I» JSM*XLIST 

77700 

PPR  ■  0,0 

23200 

CPR  -  Cd*Il 

77500 

DO  940  J-T*  JNAX  - - 

- — -  — 

23400  910  PR  -  JPRf J,NP*,NSFCTI0N1 

77500  IFIT5fr.FO.771  00  TO  917 


1 

114 

. “~a 

27600 

23700 

— mm - o- 

PEX  -  0, 5*  (C  f  J*  IT*'CPRT*  fPP-PFR  1 

GO  TO  918 

23900 

24000" 

24100 

"74700“ 

24300 


£ 

24500 

24600 

24700 

74000 

24000 


25100 

75200 

24100 

25400 

25450 


25700 

25800 

25000 

76000 

26100 

“26700 

26300 

76400 

26500 

76600 

26700 


26000 

77000 

27100 

77700 

27300 


C  f  “TVV 

27500 

77600 

27700 

27000 

27900 


c  ouuu 
28100 
70700 
28300 
70400 
28500 


! 


28700 

70000 

28000 

20000 

20100 


?  g 

20300 
20400 
«  2O500 

^  70600 


018  IFI J-l 1030*020*030 

020  CfltTl  »  PFX  - - 

GO  to  940 

730  cpp  -  ruvn  - -  — 

c(j*d  *  cij-*wr>  ♦  pex 


rrr  •  t»w 
050  CONTINUE 

TFl  ITSVTI2  n075il500VT500  - - 

075  WRITE! 4,425 IKRR, I SW,JSW,KLTST 

GO  TO  1500  -  - 

C  ***********  «10  SUBTRACT  REFERENCE  VALUF  #*♦*♦♦♦♦♦* 


iVIUU  UU  AW  JU  l"  J)Rt6LI 

C»EF  -  C!JREF,I> 

no  1040  J«l,JMAX  . . 

1010  C!  J, n  •  CREF  -  Cl  J,  II 

1040  CONTINUF  - - - - -  - - - 

TF ( TSW.FO.22l  GO  TO  1425 


IF!  TSSWf 2 >  11075, 1500, 1500 

1075  WPITFI4,4?5)KR«NISV,  JSW,XLTST  - 

GO  to  1500 

C  ************  »n  Aon  COLUMNS  *****4»44444»r4**4»# - - 

1100  IF ! JSMI 11 10,1120,1110 

— TTT0 VRTTEfKTTX ,  111  5 1 3CT,  CR 1 ,  Jt7,CR2  »  JC3’»C8  3  ,JC4  ,t  1 4 - 

RE  AO! KIN,*) JCI,CR1,4C2,CR2, JC34CR3* JC4VCR4 
GO  to  1500  - - - '  ' 

1115  FORMAT  !  1H  ,*  3Cl,CRl,  JC?,CR2, 7C3,CR3,  .TC4,CR4**  A,4tT4,El2.4H 
1170  00  1125  J-l,  JMAT  -  -  "  - 

1125  CU,JC1)  -  CR1*C!  J,JCl  >*CR2*C!  J,\1C2»*CR3*C!  J*JC3) 


▼  ♦  t  R  4  *  C  !  J  K  r  f-  ,■ 

IFI  IS5WI2  >  11150,1500,1500 

1150  WRTTE(4,425IKB»,15W,  -  - 

HRITFI4, 11151JC1,CR1, JC2,CR2*/C3*CR3, JC4,CR4 
GO  TO  1500  -  - 

C  ********* 


C  *♦♦♦*♦♦♦♦**♦*♦♦**♦•  *13  MULTIPLY  UP  T03  COLUMNS 

1300  I— 1  - 

J--1 

K— 1  - 

CONl-l 


1310 


CONI-l 

WRITE  IKTTX, 1T101  -  - -  - 

FORMAT!  1H  , '  INPUT  COLUMN  NU  «BE*S  UP  T1J  3  VALUES*  A  NO  CORRESPOND! 

%  MULTIPLICATIVE  C0NTTANTST1 - - - - - 

REAOIKIN,*)  I  «'J  «*K  ,  CONI  ,CON?  *C0N3 

TUT  1390  IPEC»1  »JMAX - 

TFfl.LF.OICn  TO  1500 

A-ct  rRfc,n*cmrr  - - - 

IFIJ.LE.OIGO  TO  1380 

R-CIIPEC, J1*C0N2  - 

TFIK.LF.OIGO  TO  1381 


GO  TO  1385 

1380  CONTtNUE 

8-1. 

1381  CONTINUE 


■4 

♦ 

>1 


79700 

29800 


U'llilil 


30000 

totoo 

30200 

urnnr 

30400 


30600 


30800 

377875 

30850 


juno  c 
30075 
30807 
30900 
~~3tooo 
31050 


3  1VOO 

31082 

7TTOO 

31206 

- TT2TZ 

31218 


31236 
3T747 
31248 
312  5  4 
31260 


JICUO 

31272 

"31771 

31284 

3T79CT 

32183 


32300 
37400 
3  2500 
37550 
32552 


jtjii 

32577 

~T750O 

32800 

37900 

32912 


32936 


1 

Ml 


32958 

3Z979 

33000 


33150 

33173 

33200 

-  rrroa 


1389 


CO-l. 

C<  IREC*I l-A*B*C0 


lLIiHKiI 


L’Hl; 


1393 


T3Tr 


IF(ISSW(2I 11395 *1500*1500 
WRTTFT  4»4  75)  88!^  T  3W  ,J  5  W  ,10.  T5T 
W g  1 TF  ( 4 , 1 3  !  H  1 ,  j  t  K  »  C  0 N 1 1 C  0N2  f-CON3 

GO  TO  1500 


1400 


1402 


142 

3475 


KTO  -  60 

JRFC  -  1  -  - " 

WR!TE<KTTX,14O4)0UTNAMF 

"IFTNOYES I  KrV,tCTTX).FO.ITTHFN - 

RFAD<KTN,1402I0UTNAME 


t  NIJ  1  r 

FORMA  T ( A 1 2  > 

MR  T  TF ! K  T  TX ,1 403)  JRPCT. JRFC7 - 

RFA0(XIN,4) JRFC1* JREC2 


OPEN!  UNI  T«XTO*‘NAME-OUTNAME*TYPe»*NFMM 


KLIST-6 

GO  TO  100  - - - 

IF(  IREC.NE. JRECIIGO  TO  102 

LFTLF  •  0  - 

lOSTNdt  2)-GNAME’(NST)  (1:2) 


i  DULikBim  lli  ju;h 


1430 


1 4  917 


1421 


1422 


1403 

1404 


TF(  ISM.NE.22)  60  TO  1430 
00  145  KRFOJRFn*  J8FCT  " 
VR1  «  C(KRFC*75WI«,l*F-3 
VR7«C(KRFC,3> 
VR3-C(KREC,41 


VR5-C(KPEC,61 

KP-JpfifKREC,HRR,NSFCTIO«T - -  - 

MRITF(KT0»1421)  I  DSTN  *KP*XL AT  tWONG*  VR1  4VR2  » VR3*VR4* VR5 
TUNTTNUF  -  - - - 

TF ! NST.FQ. NO  ILF  TLE  *1 


'  u 

VR1  -  VRBLfNVmi 

VR?  -  VRBLTWT77V  - “ - 

VR3  «  VR 8L ( NVf  3 1  I 

CONTINUF  - - - - 

KP« JPR(KRFC»NPR»NSECTION) 


l  *  £  I  j  1111*1 

lOSTNf 3:5)«GNANE(NST> (6:8) 

MRTTF  (XT  0,14  21 TT03TN  ,5P,XL  AT  VTLONG  *TRT>VR7  *3R3  *TR"5  V7IT5"  — 
^ORMATt  1H  *******  *j**«**f**F^***^;3* 

KLIST-6 


UU  !  U  £UU 

ENOTF 

TF  TTSW.FO  .  ZZ.ATTP.LFTTE.FO.nHRTTEIRTO.rVZZl - 

FORMAT!/) 

Ct05FTWIT-imn  - —  - 

TF ( LF ILF  I 200»10?»  200 


*  I  1  A  1 1  f  fit  W  VV  »  r 

FORMAT! 1H  « *LFVEL  NUMBERS  ARE  •*2131 

F0RN1TC1H  fiTNrOTNnr  OUTPUT  FILE  NAMETTE  OR  NO  IT  ~~*\TttV 
8RAHCH  0— SHORT  OOCUHEW TAT  TON  ♦♦♦♦♦♦♦♦♦♦ 


1550  GU  TO  1500 
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-  —  l  jij.i  Ijji  W30th  'i 


T4700  C  **♦**♦♦*♦♦♦♦*♦*♦**#*♦*♦ 

34300  1400  WRITE(KTTX,1505)KB*»ISW,JSW,KLtST 


moo - rm - fprnat t  ih  ,*  avisos  spirt  Tsw;jsw*xrr  si  *,/,'9X,m,r53 — 

34400  KLIST  -  6 

74400  RFADfKTN,  *  IKBR  *HI  *  JSW  ,KLT5T -  * 

34700  IFfKBP.FQ.O)  CO  TO  7300 

14900  IT(K8R.GT.??)Cn  TO  1500  - - 

34900  GO  TO  10 

35000  c  »♦♦♦♦♦♦♦♦♦♦♦♦»»»>  iT6~TAyr~T»TRFCt 

35100  1600  PF( JSWII610,16?0*IB10 

39700  1610  WIT!  TF  (XT  TX,  16111 

35300  RFAO(KIN,*>X, J 

1940X1  GO  TO  1500  ~~  '  '  - - -  - 

35500  1670  DO  1630  IREC-l,JMAX 


- 34600 - C  (  TRTC  ,  J  7  *~XBTTCTTRFC~t  J)  T» »X 

357QQ  1630  CONTINUE 

34100  m TSSWf  2)  1 165O,T500,  1500  - 

35900  1650  WRITE(4,4?51*CBR,ISW,JSW, KLIST 

36000'  WRTTF(4,165iy.*rJ  - 

36100  1651  FORMATflH  ,F17.6, 7X, l 2 I 


"16700 

36300 

'36400 

36500 

16600 

36700 


- 00101500 

1611  FORMAT ( 1 H  ,  *  INPUT  EXPONENT •COLUMN  * 1 
C  *******************  8 R AliCM  17~SUWWITT0N  OF  FRR0R5  07FX  P 
1700  GO  TO  900 

1799  F  OR  NAT  f  1 H  ,Z(T7,?YTT  - 

C  *******************  *«1R — DELP  INTO  CUREC*5) 

— rttitr — tpp«ovo - 


♦♦**♦♦*♦♦*♦**♦4*** 


- 368X10 

36900 

17000 

37100 

17700 

37300 


00  1810  J-l,JMAX 

p  r  -  jpr  r  j ,  npr  *iNr5FcrroMi 

OELP-PR-PPR 

PPR.P1T 

C< J.5I-0ELP 


17400  mo  conttnu? - 

37500  IF(!SSW(?)UB75«  1500,  1500 

37600  l!?5  WRTTE(4,4?5)KW,T5Ut  J5¥,Xi:T3T 

37700  GO  TO  1500 

“17800“  C  ******************  »1 9—  FXCHANGE  COLUMNS  *****#*****4****** 
37900  1900  WRITEfKTTX, 19101 

18000  T9TO  FORMA TT1H  <15803  COLUMN"  NOW  BEITS"  TO  OF  EXCHANGED*  I - 

38100  READ(KIN,*H  ,  J 

39700  00  1970  IREC«l#JWAX  -  '  "  - 

38300  CIREC  -  CfIRECVli 

31400  CURECt!)  -  ClfRrCVJl  ~~  - 

38500  CfIRECtJ)  -  CIREC 

“38600 - TTTOinJWTTWE - 

38700  IFfT55Wf?1 11925*1 500* 1500 

T9 900  T9?5  W»TT6T4»  4?5  JKinr/TWf  JllTfltTST  - -  -  - 

38900  WRITE  I  4, l 7551 I. J 

19000  GO  TO  1500 

39100  C  ♦♦*♦♦**♦♦♦*♦♦♦**♦  CHANGE  SINGLE  ELEMENT  OF 


C  —  fZO 


15700 - 7000 - WRITEfXTTX, 70101 - 

39300  2010  FORMAT ( 1H  ,  ‘INPUT  COLUMN,  ROW,'  NEW  VALUE*  1 

19400  REAnfrTNv*!r,i»nrcHO  - - - 

39500  CfJ,n  •  XCHG 

T960Q  rFfISSin?l  17079,7500,1500  - - 

39700  7075  W»  I TE  (  4, 4  75 1K8R  ,T  SW,  JS  W*KL  19  T 


39800 - WR  TTFT4T7U70T  r,~J,  XCHG - 

39900  7030  FORMAT f IH  ,7( r?,7X) ,F17.6) 

90000  GO  TO  1500 

40100  C  ♦♦♦♦♦♦♦♦♦♦COMPUTE  ST0.0FV.fX1  IN 
90700  7100  TFtT9SlTf7»l?tr0V7ir6,?l?O 


COL  1  FOR  X-8AR,X*X*BA»  IN  COL  4*3  *♦' 
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"50TOO  7110  NRTTFI4,475)K5rVISV,  JSlT,ia:T5T 

40400  2170  00  2130  IREC  «  tVJHA* 

7  •  CftREC,4l-  “ 

40600  CfIREC.1)  «  S,O*TIN0MCCIRFC,3)-Z*n/«NU-in 

~~5oroo  21  TO  CONTI  NOT  '  ^ 

40800  GO  TO  1500 

4OW0  C  •****♦*•*♦*•*♦  ♦•22--C*!. COC  ATF  DH  FOK  EACH"  STITT  ON—*O0TPUT  TN'WYT'FUmr’ 
41000  7200  GO  TO  1400 

— 4TT00 - C"-rrT» <nr» »» »**»» »  SR INCtt” U-- S HURT PUtU WFN Tl MUN~-AVKG5  TmrmTT - i 

41200  2300  OPEN  I  UNI  T»50*<NANE**  A  VRGS.DOC  *  *TYPF«  *0t  IT*  »  READONLY  I 

*1100  00  7WN- 1,700  ~ 

41400  RE  ADI  50, 2325, END-2355 H DOC  til  VI -1*9) 

WT500  W1ETTE  rKTTY  ,  2  TTOTCTJOCTT  TYT-TiTOT 

41600  2350  CONTINUE 

4TTOO - rm — P0ftH/m«>A8) - 

41800  2330  FORNATUH  ,918) 

4TOOO  7355  CLOSF  ruNIT-50)  “  “  ' 

42000  GO  TO  1500 

*7100'  ~~  END -  - 


1 


J 


too 

200 

"5(70 
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TTCT  TT  Y977  ***** 


C  T IllT  SUBPROG  PFPLT  ***** 

SUBROUTINE  TABLE 

f-»-*-**-*Trr»  ********  »*»*•**»  »**»»»»»**»****»  *»»»»»»»»»***»»»*»»* 


.  4 

"V 


t 


t  . 


2900 
1000 
II 00 
1200 
T300 
3*00 
3500 
3600 


5700 


3800 

5TOO 

*700 

*500 

*600 

*500 

*600 

5500 

*900 

5000 

5100 


9?00 


5300 

5500 

5500 

5600 

5  700 

5000" 

5900 

5000 

6100 

6700 


*00 

C 

w- 

- 500 

r 

TO  CONFUTE  AND  PLOT  PTTTFV  V A  RTAOLFST. . 

600 

C 

JUNE  2  7  1976  N  EOFOVOFF 

l 

- rwr 

c 

VAT  VFRSTON — NOT  1955  N.'BIIAY  “  '  . 

BOO 

c 

900 

TDCLtfOE  ' ' CO0PF0CT.E  OR* 

950 

DIMENSION  V AR 1 100,9 1 

"  TOOO 

C 

'  . . .  '  '  . 

1100 

C 

PROO 

1700 

m I SW-1 1600, 15,10  - 

1300 

10  NOSTN  -  0 

- 1500 — 

ND~*  T 

1500 

NX1-1 

~w" 

1600 

NX7-6* 

1700 

NY1-2 

-  T»00“ 

NY?«1?  - 

1900 

A  1  •  1  • 

- 2000 — 

B  7  *7 

2100 

01-1. 

7700 

B7--.001 

2600 

X7DIM-3. 

2  TOO 

Y70IM-10 00.  —  ~ 

2720 

X0IN--UO. 

- 77*0 — 

"X*AT»=0OV  "  “  .  —  ” 

2  760 

Y*I N--100. 

‘  77B0 

Y«AX--m 

2000 

15  WR  ITE<  YTTX,  15051  NO, P0IN,PMAX»X2DI»*,Y?Ori0 

1505 


FOR  PA  Tf 1 H  ,*00.”  5TATIONS7IOD?P5tN,P0I)r,Tf2DI0,T?OT*l'T 


%T*,*r7.0 


R F ADI  K!N,*)N0yP«!N,P«AX,X2D! 0,7201** 
PMO-I - 


WRITEIKTTX, 70001 
RFBDIKIN,*) J0T0 
WRITE  I KTTX, 70101  PL ABL 
IE  (NO YE 5  I  KIN,KTTX1  «T O' •  1 1 THETT 
RFADIXIN, 70201PLABL 


END  IF 

WR  TTF  IXTTX,  70*01  X0TN,X5rX;T0T07Y0AX 
REAn(KIN,*lX0TN,X0AX,Y0IN,Y0AX 

CALL  AG5ETFI5fTY/0rw.  ,X0T01 - 

CALL  AGSETE (6HX/0AX. , XMAX1 


CALL  AGSETFf 6HY/0AX. ,Y*AX? 
WR I TF I K T TV , 7050? XL A5L 
IEINOYESIKrN,KTTXl.EQ.llTHEN 
RFADIXTN,702OnO:ABU 
CALL  5TRIPIXLAPL1 
PNDTF 


WPITEIRTTX, 70601YLABL 

TE  INOYFS I5TH,KTTX?  •TO  .1 1THFO -  -  ' 

RFADIXIN, 70201 YLABL 
CALL  STRIP f YLH5L 1 
ENOIF 

“CAUL  AGSE  I  FI6HTRAWE.  ,2.  1 - 

RETURN 

*****  PLOT  Rn.5TIrO  TOR0AT5  ***55*5*9****9*r**r********* 

EOR0ATIIH  , *  INPUT  INDEX  OF  FIR5T  POINTS*? 

FO«0ATT1H  , * C5A0GF  P10T  L ABTLT  0LTTL5BET.  TS s *, / , 50 


\hi 


7000 

7010 


□ 


,T0153 
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6300  7020  FORMAT ( 1044  I 

6500  7040  FORMATdH  »,CUR'RENT 


S600 

FORMAT ( lH 

6700 

7060 

FORMAT ( IH 

-  7100 

600 

CONTINUE 

7200 

C 

7300 

18 

DO  180  J-4, 

7400 

DO  180  I-i, 

7500 

7800 

180 

OTTTTT  *  0. 
DO  101  K»l, 

, ’CHANCE 


6 

100 


VALUES 

x-asts 

Y-AXIS 


OF  XMIN,XMAX,'YMIN*YT«AXT  **/*4F10.3» 

L'AWFLT 

LA8TL? 


HOT 

OLD 


CAttU 

LABEL 


7TT»T7v4Tr 


rsTsn 

10A4* 


IS***/ *  AH 


NO 

7000  RFA0I12, 1010,FND-106JM,C^AWmnTMl 

8000  1010  FORMAT! I  4  *  A 1 2 ,  F5 . ? > 

8100  GNAME  TK  )  1 9 : 1 71  »"*  «~A  VO  T 

8200  101  CONTINUE 

"TT250 - rCT5 - FFTWTCT.  lT-TTW«n^l - 

8300  REWIND  12 

~8W0  00  DO  175  JST-l.NO 

8500  IE0F-0 

4600  OOFNIUNTT-KTR^AMF-t 

8700  ♦  *UNF0PMATTFD**ERR«175) 

■  8800 - 


,OLDlr*'TORTI- 


-78 - CALL  DaTAfltTE-On 

IF  f  IEOF.EO.-DGO  TO  111 

X  -  Al*VRRL(8iyn*A?*VRBLnnr7T>HT*'VR0iLTTfim4A4#rflR?r,n 

Y  -  Bl*VRBL(9Yll4B?*VRBL<NYZ»4B3*VRBL(Nr3>*B4*C<fRTt*?l 
7  -  cT*7RBLrirnrvc7*TrRBi:r 
XPR-A1*VRBL(NX1I 
~ —  -  YPR-BI»VR'BLTNYir 
WT  -  1.0 
VaR(TRFC,l*«FF 
VARURFC*2)-XPL 
VATT(TRFC»31  "YTT 
00  950  5-1*6 


8900 
9000 

9100 
"9200 
9300 

--9TVIT0 - 

9500 
9809 
9518 
95  Z  7 
9536 

~  9545 - VARyrRFC*M»3)«VRBLTNVIMn - 

9554  950  CONTINUE 

9578  IFimwmn.EQ.IJTWP  - 

9581  WRITE IKOUT, 1421 H VAR f  I  PEC « K I  * JC-1* 9 ) 

9487  FNDIF  - 

9590  1421  FORMAT(9F8.3l 


9595 

9600 

9700 

9800 

9900 

10000 

142? 

940 

980 

985 

FORMAT!/! 

IF  t  TSSWC15*  >980 *'985*985 

WT  -  VGT  - - 

C( IRFC*4»-X 

C  f  TREC*  5  I  -Y 

CdREC.6  W 

— 

10 100 

10200 

no 

WR ITE (XL  1ST, *>PE,X,Y,7 

T0300 

1100 

FnPMAT(?I4,47d4yF7.D,3F10^47  “ ' 

-  -  - - -  - 

10400 

113 

GO  TO  95 

10500 

10600 

111 

CONTINUE  - 

IF(  ISSWdOl.FQ.-l.AND.  JST.EQ.NO* 

10700 - 

11300 

IT40O 

- 4WR  I  TF(  KHUT  ,142  71 - 

IFC  ISSW(6 J .FO.-l ICO  TO  175 

171  I J9  •  0 

11500 

00  172  K-JMIN*IRFC 

11600 

I JW-T JW41 

-  -  " 

- - - - 

. .  -  - 

11700 

XDATdJM.ll  *  C(K,4) 

11900  17?  CONTINUE 

12000  TFf  JST.GT.11TWF9 

12100  CALL  AGSE  TF 1 IIHBACKGRDUND.  *4# I 

17700  FNOTF  - 


120 

17300  CALL  ERSTPTnCBAT(l,n*YDAm.l>> 

12400  CALL  ANOTATfXLABL»VLABLtOtOtO,0.> 

12*500 - rgtt~C7WXT  I  XPAT,Tr>AYt TOTWTTTt  JW,P 

12*550  !FH5$W<5I.EQ.-nGO  TO  175 

~T7500  YERZ-YPR^AYTOTTr  - 


12700  XPR2»XPR-A2*X?OI* 

T7mu  XPR3-XPRVA24X70T* 

12900  CALL  LINENCARI XPR,YPR*XRR*YPR2> 

nnnro  call  ltnencar f  xpit? *y pi? •  tpr ttythtt- 

13100  175  CONTINUE 

ITI50  ■"  '  TFI?SSHIfcr.T0.-ir60"TD'T7W  ' 

13200  CALL  FRAME 

moo  call  AcsETrf«Hr^rr«.,iTF7fe) 

13400  CALL  AGSETF ( 5HX/HAX*  »1.E36) 

- TTYTTO - CALL  A  GTETF  (  6HT  /~MTW~»  1 1 TFJH1 - 

13600  CALL  AGSETF ( 6HY/NAX* »1.E36  ? 

TTTOO  CALL  AGSETF  friWBICXGinjUND . , l *  ) 

13900  178  IFMSSWI10).E0.-1  ICLDSFIUNIT-KOUT) 

13900  "  RETURN 

14000  FNO 


C  data  SuRR  PEP LT  SEPT  15  1977 

SUBROUTINE  D  A  T  A  <  NS  W  » I F  OF  ) 


[mirniiiTiiiiiiiiiiiuiimiiiiiiiim: 


C  PROGRAM  TO  RFAD  AND1  SELECT  POTEN  D'ATI* 
C  JUNF  2  7  197*  N  F OF ONOFF 
C  VAT  VFRSION--NOV  TWO.  N.BRAY 
INCLUDE  'CONPEPLT.FDR* 


900 

1000 

1100 

T70U 

1300 


MW  -  1 

rF{NSM)I,2D,?0O 

CONTINUE 


2700 

7100 

2900 

3000 

1*00 


3600 

7T0O 

3800 

3900 

4000 


*100 

*200 

4300 

**00 

4600 

*700 


IFLAG-0 

RETURN  “ 

20  CONTINUE 

172  WRITE<KTTX.iniOAYl,DAY2 


RFAOIKTN,* )0 AYl »  0 A Y2 

174  MR  T  TF  f KTTYV175 1  XE*N  .XEWX.YNNN.TNHX 

175  FORNATUH  *  7HE-N  LIMt*F7.2) 

RFADIKTN,  *>  XENV,  XEMY»  YWWWFXWTX 
WRITEIKTTX,l?7)7LT0,ZLG0* JD0VPN1N*PNAX 


177  F0RWATI9H  fJR  I OTNJ  t  ?  f  X  ,  F  B  .  3  )  ,  X  ,'*H  J  DO  f  ,¥ 
RFAO<KIN,P)2LTO,ZLGO,  JDO,PNINf<F*AX 
RETURN 


200  IFCTFLAC.EO.IVG'O  TO  217 
RFAOfKTp  , END ■ 2  80 >  KHDG 


*875 

5000 

5100 

5200 

5300 


■5*00 

5500 

5600 

5650 

5700 

5800 


701U 

5900 

6000 

6100 

6700 


251  TF  f VOAY-OAYl 1780,252,  252 
752  IF!DAY2-X0AY)280,25*,25* 

?5  *  IF l XL ONG-XFNN 1280,756, 256 
256  I F  f XEPX-XLONG 1280,258,258 


260  TF  f  XN8X-XL  AT  1 780*267, 262 

762  YPL  -  -111.1 7*(  XL nNG-7LG01*C03nXL*T> 73.701/114.577) 

♦  ♦  jdopfloat  f tconi 

YPL  •  lll.l2*C7U*rr-7LT01  - -  - 

OAY  «  XD AY 


'IIIVJ.III 


2615 

7620 

7625 

7630 


TFUSSW<13))2620,263,263 
TFITREC  -1 ) 2630 »2675T 2630 
MR  ITE (KOUT)KHOG 

mvtte  nrouTiiniov 


I 


PFPLT  5UBR  PFPLT5UB  SEPT  15  1977* 

VAX  VERSION  NOV  I960.  N.BRAY. 


*HTri*«,r»n»Tnn* 


li.'lAAtlL'HJllAAll.rmi 


TO  EVALUATE  POLYNOMIAL  OF  ORDER  N-i  NITH  COEFF  CPftl, 
JAN  28  1976  N.  FOFONOFF 
01  MENS  I  ON  CPU) 


•si 


800 
B50 
900 
~  95TT 
1000 


IV  JU 
1100 
TI5U 
1200 
1750 
1300 


1  39U 

1500 

T65D 

1500 

—1550 

1600 


1D7U 

1700 

1750 

1800 

1550 


Ji 


2300 

7150 

2600 

“7550 

2500 


2600 

~7650 

2700 

7750 

2800 


2900 

7950 

3000 

1050 


V  «  VO 

TFl V— VWN1I *  2*2 
IV-  VNN 


'  M  k-M'JI 


3  V  -  VNX 
6  POLY  »  0.0 
X  -  V  -  OVM 

no  10  t-ivn 

NT  -  N  -  I  ♦  1 


RETURN 

FND  -  -  ' 

DPDV  FCN  ♦***♦♦*♦♦♦***♦♦♦♦♦*♦♦♦♦♦♦*♦**♦♦♦♦•** 

FUNCTION  OPTTYrW,OYWTCF»lltVWW»VWXl - - 

****** *♦****#♦* *********************************** 


TO  COMPUTE  DERIVATIVE  OF  POLYNOMIAL 
JAN  28  1976  N.  EOEONOFF 
DIMENSION  CPfl) 


V  «  VO 

TF(V-VMN?I,2,2  - 

1  V  -  VMN 

7  TFT  VNX-V) 1,4,4  - * - 


1900 

3 

V  -  VHX 

■i 

4 

NM1  -N-I 

2000 

X  -  V  —  DVN 

7050 

OPDV  -  O.TJ 

2100 

DO  20  I  -1,NM1 

7T5U 

N8I  -  N  -  T 

2200 

20 

DPOV  -  DPDV*X 

PND 

8 NO  FCN  V******************************* 
FUNCTION  BN0(Z,<7MtN,ZNAX) 
********************  *?»#♦«  M*  ** 


LU#  ■ 


FNO  -  Z  ‘  . . 

TFI  7— ZMIN)  10*20*'20 
lO  8 NO  •  ZNTTT 
RETURN 


30  UNO  -  ZMAX 
AOr  FFTURN 
ENO 

JPN  FCN  *****  FT58I 


I 


124 


1 


1 


3TO0 

3150 

'3700 

3250 

7700 

3350 

~7*00 

3450 


FUNCTION  JPRf I*FCtNPR*N5J 


C  GENERATES  PRESSURES  CORRESPONDING  TO  IREC. 

C  - 

C  OCT  28  1975  N  EOFONOEF 

0I8FN5I ON  NPRU) 


- T500 

3550 
'  31500 

3650 
7700 
3750 

~c - 

no  ioo  j-i.ns 

TEf  TREC  •LT.'WPRTJTITHEN 

JPR.NPR(NS*J1*ITREC-NPR<2*NS* JM 

RETURN 

ENOIF 

i  ' 

i 

t 

•4 

-  i 

3800 

3850 

7900 

3950 

*000 

100  CONTINUE- 

JPR-NPR  1 2  *NS  ) M IREC-NPR  <3*NS  > 1 

RETURN 

END 

******************** ********************************* 

v-S 

*050 

SUBROUTINE  STRIPfAl 

•i 

*150 
“  ^700 

*250 
*700 
*350 

C 

C  STRIPS  TRAILING  BLANKS  AND  PUTS  A  4  AT  THE 
C  IN  ARRAY  A  FOR  CONEORNANCE  WITH  NCRR  PLOT 

C  N.RPAY  17NOV80 

C 

ENO-  OF  CHARACTERS 
PACKAGE  LABELS 

r- 

**00 

**50 

tJfHf  HSION  ft  t  l"l 

C 

*500 

B-’  *  —  - . . 

-i 

: 

*550 

no  ioo  j-i,io 

*600 

K  *  10— 'J  ♦  1"  - 

*650 

IFIA1K1— B1  2  00  *'100*  200 

9750 

5800 

♦  850 
TF900 

♦  950 


7U»« 

5050 
7TOO 
5150 
*  5700 
5250 
'5300 
5350 
5*00 
5*50 
5500 
5550 


70WV 

5650 

5700 

5750 

5000 

5850 


5950 

oooo 

6050 

6100 


700  NCH«K*1 

TFINCM.GT.103NCW-10 
A(NCHI-*t  * 
RETURN 
FNO 


ItAHUL 


n?ROV  FN--SECOND  DER  TVATTVE  OF  POLYNOHIAL 
FUNCT I  ON  07PnVTV0,DVNtCP  tTTyVMf  *"78X1 


nr^rmni  i  roTiwoFF* 

OINFNSinN  CPfU 
V  -  VO 

S  F I V-V8N) 1.2.2 


1  »  “  »nn 

2  1EIVWX-V13.*.** 

3  V  •  VOX 

*  NN1  -  N  -  2 
X  -  V  -  0T8 
02P0V  •  0.0 


* 


il  lM> 


N*T  •  N  -  I 

11*12  •  N*I  -  1  - - 

20  02POV  «  02P0V*X  ♦  FL0AT(N*I#N*I2l*CRf  NNIM.I 

return  -  -  - 


6150  END 

6200  C  SEAMATEP  PROPERTIES 
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6250 

6300 

6550 

6400 

6450 

6500 


17 

C 


SCO  ♦♦♦♦♦ 

FUNCTION  SGOfS) 


C 

c 

c 

T~ 


ST UN 1-0  KNUD SEN 

FEB  15  1976  N.  FOFONOEF 


6550~ 

6600 

6650 

6700 

6750 

6800 

15550“ 

6900 

6950 

7000 

7050 

7100 


SCO  -  C  (6.  76786136E-6PS-4.8249614E-41PS'*0.81487657T»*S 
X  -0.0934458652  ” 

RETURN 

END 

SCT  FCN  ♦♦*♦♦♦♦♦♦* 


C 

c 

c 

XT 


FUNCTION  SGTTT,5,SCV 


STU51-T  KNUDS EN 

FEB  15  1976  N  FOFONOFT 


SC 


-  SGOISI 

I  1 1 1  -1 .53Bm06Tr=7rr-lT98r48399F*T|TFr-0.5559y9IirTFT 


rrsxr 

7200 

7750 

7300 

7550 

7400 


70  sur 

X  ♦  4.53168426  )*TT/<T*67.26IM  (It  r;667E-8*T-8.169E-7A»T 

X  ♦1.0O3F-5 »4T)*SC»( f-1 .0845 E -6*T*9. IT59F-5 1 *T-4.T06TP-3>47 
X  ♦l.O»*SG 

RFTURN  “  ~~ 

FNO 


FOUITTON  OF  STATE  "FOR  SFAWATFR  FDS80 
*♦  **♦♦*  *******  *****  *  ****************************  ******* 
REAL  FUNCTION  E0S80fPl ,T*S1 
************ **************  ****************** 

FOUITION  OF  STATE  FOR  5F*H*TFR  PPTJFlTJFO  TrifPOrrS  IOlir 
RFEPPFNCFS 


T45TT 

7500 

T55U 

7600 

7650 

7700 


T75U 

c 

i.niia  liBIBl'MVUTBH 

RES.  ,'278,255-754 - 

7800 

C 

JPOTS  NINTH  REPORT  1970,TENTH 

REPORT  1980 

7850 

c 

UNITS : 

7900 

7950 

c 

c 

PRFS5URF  P 

INPUT  PRESSURE  PT 

BARS 

DFCTWRS 

8000 

c 

TFNPERATURE  T 

DEG  CELSIUS  HPTS-68) 

§050 

8100 

5150 

8200 

8750 

8300 

8350 

8400 

5450 


- SAlTnITV - 5 - NSu  MPS5-78 V 

DENSITY  RHO  KG/8443 

SPFC.  VOL.  EO580  54rj75C 

CHECK  VALUE:  E0S80  •  9.435561E-4  N443/KG  FOR  S’  -  40  85V, 
T  V  40  DFC  C,  P  -  TODD  BAR5. 


8  EUFUNUH-  REVISED  DTT  T  1980 - 

KOOTEIFO  TO  TAKE  OB  INPUT  PRESSURE  *  AND  OUTPUT  IN  C84*I/G8  2880V80 

N.851Y  -  -  ■  . "  - 

REAL  Pl,P,T,S,RH0,SR,Rl,R2,R3,R4 
REAL  A  »  P  ,  C  , 0  *E  ,  A 1 , 8 1 ,  A  M  , B W, K  «K0VRW 
FOUIV 

- FOUT  9ALFNCF rE.U.Tll  ,R4T,1  BU,  B,R3 1,1  C,  A1 W7I - 

EQUIVALENCE  I  A«,’A,R1,R01  ,  (KW,K0,5 1 
COWFRT  PRESSURE  TD  5AR55N0  SOUATTF  RUOT  5IM8ITV. 

P  •  P14.1 

SR  •  SORT UIISUl)  - - -  - 

CONFUTE  OENSITY  PURE  MATER  AT  ATN  PRESSURE 

- R1  ■  IT'II6.5  36332P~9*T-1. 120063E1— 61  *T ♦  1. 00168 5€— 51*1 - 


8500 

0550 

8600 

8650" 

8700 

8750 

8800 

5850 

0900 


8950 

9000 

9050 

9100 

“9155 


X-9. 095290E  -3  1  ♦  793952E-2 1 4T*999.  842594 

SEAWATER  DENSITY  ATN  PRESSY - 

R2  -  <«  I5.3075E-94T-8.2467E-71PT47,6438E-^51PT-4iO899E-3»PT 
A45.24491E-1  - 


J 


126 


9700  R3  -  {-l.6556F-6*TM.022Tf-6>*T-5.?2566E-3 

9250  R5  -  5.8315E-5 

9300 - im0~~g~  <W«*»S  ♦  RI*SR  *  •R7TrS~R~rr - 

9350  C  SPECIFIC  VOLUME  AT  ATMOSPHERIC  PRESSURE 
”9*00  ALPHA  -  I.EO7WH0 

9550  EOS 50  -  ALPHA 

9500  TFIP.EC.O.OTRETURW 

9550  C  COMPUTE  COMPRESSION  TERMS 

-woo - r.nr;i  ao7e-i  oatvj.ob  i  gt-  st  at  -9  v  <n  a  * 

9650  8W  -  I5.2787E-8RT-6.12293E-6»RT^8.50935E-9 

9T00  R  -  BW  ♦  EPS 

9750  C 

9800  T)  •  I.91075E-5 

9850  C  -  <-1.607BE-6RT-l.0981E-5MT*2.2838E-*-3 


9950 
10000 
10050 
tOTOO 
10150 
-10700' 
10750 
10300 
10350 
10500 
10550 
"T  0500 
10550 
10600 
10650 
10700 
10750 
-TTTROO 
10850 
10900 
10950 
I1U00 
11050 


*♦3.739908 

A  .  f 0*SR  ♦  C 1 *S  ♦  AW 

PI  -  1-6.3009F-5*T»1.65P3E-?)*T47.955EX7 

«l  -  (  (-6.1670F-SRTM.09987F-2MT-0.603559MM55.6756 

—  mw  -  r  r  t  -  5 .  i  -p  *?rnpr=5MT  rrrjso w ttf=? j  * t  -2.3  m  05  f  rt - 

*♦158.5  706  MT* 1965? . ? 1 
KO  •  ( B l *  SR  ♦  AIMS  ♦  KW 

K  .  fR*P  ♦  AMP  KO 
ALPHA  -  AL  P  HA  5(1.0  -  P/KI 

- rtiipo  «tm  - - - 

RETURN 

FNO 

V350P  FCN  ♦  ♦♦•*  OCT  7  1980 
REAL  FUNCTION  9350PIFI) 


SPFTTTTr  YnuiJME-rCM»R~37irMl  FOR  V«  T5  NSU  \  TPSY-78 Ik - 

TENP^RATURF  0  QFG  CFLSIUS  (IPTS-68)  AND  PRESSURE  IN  DECIBARS. 
FOUATION  DERIVED  FRO"  ETT580 

CHECK  VALUE:  V350P  -  9.337531E-5  MM3/KG  FOR  7  -  1000  BARS. 
•OI7TFTFO  TO  ACCFPT  TNRT/T  PRFYSURE  TN  OB  >NB  OUTPUT  TPYTUt  TN 
CMRR3/CM  78  NOV  80.  N  PRAY. 


11150  ALPHA  -  9.  7?662E-5*<1.  0-P  /<  21582.27M  3. 35‘95M5.032EU*>RP  I  *P  1 1 

11200  ALPHA  «  1 .  E  ♦YVAL'PKI  - 

11250  V350P  -  ALPHA 

11300  RETURN 

11350  FNO 

11AU0 - C  OT  FEW  F CN  'TRFTR  TTCT '7^1980  - 

11550  REAL  FUNCTION  OEPTHIPl «L AT) 

11900  C 

11550  C  OF  PTH  IN  ME  TFR  5  FROM  PRESSURE  IN  DECIBARS  USING 
11600  C  SATJNUFRS  ANO  FOEOMOFF’S  METHOD. 

11650  C  DFEP-SFA  RES.,  1976 ,i?3 , 109-1 1 1 . 


11750 

risoo 

11850 

11900 

11950 

12000- 

12050 

12100 

12150 

r??oo 


REAL  LAT 
P  -  Rl*.l 

*  -  SINILAT/57. 29578) 


GR  •  9.780318Ml.e*C5.2788€-3*2.36E-5Pjr»**|  ♦  1.092E-5RP 
DEPTH  -  f(  C-1.87E-llRP*2.779r-7»Rr-2.TDI7F=T»RF>97.765VI*P 
OFPTH  »  OEPTH/BR 
RF  TURN 


I 
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12250 
12300 
T7T5TT 
12400 
12450 
12500 
12550 
12600 
T7K5IT 
12700 
12750 
12600 
12550 
12000 
t 7vnr 

12054 

12058 

12062 

17066 

12070 


PND 

ATG  PCN  4444444444 

- FUNCT1W  ATG(P",TV53 - 

444444**4444444444**4*444 

AOTAPATIC  TEMPERATURE  G» AO ! ENT.  JDRrOPN  1073. 

DS  -  5  -  35.0 

- ITG  -  -(  rr=7;  l'6ir7F=r5'*r>l'.86  26fc-m*7=A767ff6E-131*F 

^♦C(?.7750E  — 1?*T— 1.1351E— 10)*DS^M— 5.4481E  — 14*T 
X*8.733E-l2>  *T-6.'T795P-10  )*T«3.~87rAlF^013*P’ 
^♦(-4.2303F-8*T^l.8032E-6>*DS 

7* ( ( 6 .6228F-104T-6. 036F-8 | *X* 8. 5258F-6) *?♦ 3. 50O3F-5 
RETURN 

- FWD - 

T>V A  *CN  44444  PTSfll  **44* 

FUNCTION  OVA(P«TySl 

4* *44444444 44 *****  ***** *4 

SPFCtFIC  VOLUME  ANOMALV 


12078 

12002 

12086 

17000 

13000 


13100 

m  so 

13200 

IT750 

13300 


OVA  -  SVAN(P,T^5,SPV| 
RETURN 

fno 


SVAN  FCN 


Tiur»  J  »  n  r»  I  »  t  f  . 

*4 4* ♦♦ 4*444 *44 * *444444 444 

SPFCTFrC  VOLUME  AN0WILY*1E"5 
FEB  T5  1076  N  FOE  ONfTFF 
V  -  F0S80 ( P  *T »3 1 
SVAN  -  1  .OE  54(  V  -  V350PIPM 


t 


4 

i 


13500 

13550 

13600 
13650 
13  700 


unu 

13800 

13050 

13000 

33050 

14000 


END 

THETA  FCN  44444444444*4*4 

FUNCTION  THETAtP0,T0,S ,PF» 

*  4 44*  * 4  *  4 4 4  4  4  4  4  4  *  4 | *  44  4  44  *  4  4 *444 - 


it  L  DC « L  ruirni  i  «i_  icnrtmiiunc  »  i 
FOURTH-ORDER  RUNGE-XUTTA  INTEGRATION  USING  STEPS  OF  100  08 
OR  LFSS. (RALSTON-WItr  VOL  1  PTT5V  F0  261 


OCT  12  1075  N.  FOFTJNOFF 


■\  - 14050 - 

P  14100 

i;  143  5  0 

jj|  14200 

1  14250 

f  14300 

- p-TT—ptr 

T  «  TO 

H  -  PF  -  P 

N  -  ABSIHI/1000.0  ♦  1.0 

H  -  H/FLOAT IN) 

00  10  I«1*N 

-  -  -  -  • 

fK  *  H^4T6^tF<iS) 

14400 

T  •  T  4  D.5*XK 

14450 

0  **  XK 

14500 

P  -  P  ♦  0.5*H 

14550 

XK  •  H*ATCIP«T,.T1 

.  • 

14600 

T  -  T  ♦  0.29283322*TXK-0> 

i  i  »  a  i 


LUtftLLU1! 


14700 
1575  0 
14800 
14850 


XK  *  H*ATGtP*T,S> 

T  -  T  ♦  1, 707106 78T *1X11-01  - 

0  -  3,41421356 ?*XK  -  4.121320344*0 
P  •  P  ♦  0. 5*H 
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WOO 
14950 
1500U 
15050 
15 100 
15150 
15700 
15750 
“T5700 
15350 
"T5400 
15450 
15500 
15550 
15600 
15650 
15700 

15750 

15500 

15650 

15900 

15950 

16000 

16050 

16100 

16150 

15700 

16750 

16300 

16350 

16400 

16450 

16500 

16550 

16600 

16650 

16700 

16750 

15500 

16850 

16900 

16950 

17000 

17050 

17100 

17150 

17700 

17750 

17300 

17350 

1741)0 

17450 

17500 

17550 

17600 

17650 

17700 

17750 

17800 

17850 

17900 


XK  -  H*ATG(P.T,S1 

T  -  T  ♦  (XK— ?.0*Q)/6.0 _ 

THETA  -  T 

RETURN 

PNO 

T65  FCN  ****♦♦**♦♦ 

FUNCTION  T68f  T  )• _ 

TO  CONVERT  T-48  TO  T— 68  TF  8PFRATURE  SCALF 
FFBf  15  1976  N  F0FONOPF 

T68  -  T  -  4.4F-6*TM 100.0-Tl 
RETURN 


T48  FCN  ♦♦♦♦*♦#•*• 

FUNCTION  T48(T) 

#**♦*♦****♦**♦*♦#***♦*♦** 

TO  CONVERT  T-68  tq  t-48  TEHPFRinWF  SCALF 
FF8  15  1976  N  FOFONOFF 

T48  -  T  ♦  4.4F-«-6*T*(100.0-T) 

RETURN 

FNO 

OVTTT  FCN 

FUNCTION  OVOT(P*<T»SI 

-»  »-»■»»»  0  »»r»  #»»»»»  rr»  rr»»  r» - - 

DERIVATIVE  OF  SPFC1FTC  VOL.  WITH  TENPFR ATURF41E5 
FF  Ef  70  1976  N  FOFONOFT' 

M  *  0.75 

OVOT  -  (5.0F4/H)4|F0580(P,T*H,S)-EOS8f)(P,T-H,S»  » 

- PTTURFJ - 

FNO 

OVOIS  FCN  ♦*♦♦**♦*•♦  - 

FUNCTION  OVOS(R»T,S> 

OFRTVAT I VF  OF  SPECIFIC  VOL.  WITH  S ALTNI TY*IE5 

FT  9  70  !9iT6  TTTTTFTpriFF1 - 

H  -  0.5 

OVDS  -  I5.0F4/H)4fF0580|P»T* S+Hl-EOS  80f  P »'T « S-H3  I 

RETURN 

FNO 

Wfj?  FCN  ♦♦♦>♦♦**♦* 

FUNCTION  OVOP<P«TtS) 

*****44***************** 4* 

A0IA8ATTC  DERIVATIVE  OF  SPEC.  VOL.  WITH  PRESSURE*IE5 
FEW  70  1976  N  FOFONOFF  - 


OVOP  -(5.0E4/H>.*(EO5B0f  P»H*T,S)-E0S80(P-W*T,SH 

J  ♦  ATGfP.T *5)*DTDTfPfT *5)  - 

RETURN 

FNO  - 

OK0T  FCN  ♦♦♦♦♦*•*♦• 

A0IA8ATTC  CPPPRFSSIH1LITV  TE*P  DTRTVITIVE 
EE 8  70  1976  N  FOEONOFF 


I 
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17950 
18000 
TT6W 
18100 
18150 
18700 
18750 
18100 
1  8150 
18500 
18550 
18500 
18550 
18600 
'T8S*>CT 
18700 
18750 
18800 
1W850 
18<»00 
-15050 
19000 
19050 
19100 
19150 
19700 
19250 
19300 
19150 
19500 
19550 
19500 
19550 
19600 
19650 
19700 
19750 
19800 


19900 

19950 

70000 

70050 

70100 


CUIJV 

70700 

70750 

20100 

20150 

70500 


r.  vm-yu 
20500 
20550 
70600 
20650 
70700 


20800 

70850 

20900 

20950 


M  -  1.0 

0K0T  -  I0.5/HJP(nVDPfP,T*H,Sl  -  DVDPf P,T-N,S I > 
rftupn . 

PND 

0*05  FCN  ********** 

FUNCTION  OKDS  (  P»'T *S  I 

******* 5555 *****  ***** ** 

*0  ?A"AT  I C  C0"PRFSSI8TLITY  SALINITY  DERIVATIVE. 


H  -  7.0 

OKOS  -  (0.5/H)*I0VDPIP  ,T,S«-H)  -  DVQP I  P  ,T,5-H>  ) 

RETURN 

END 


FUNCTION  SAL(Pf.T*0» 

*********  **  *******  ******** 

COMPUTE  SALINITY  GIVEN  P»F  SSURE  , TE  MPFRATUR  F  AND  SPECIFIC 
VOLUME  ANOMALY! 10**5*0ELTA1 
EEB  16  1976  N  FOFONOFF 

K  •  0 

SAL  •  15.0 
10  S  «  SAL 

SAL  •  S  ♦  (D-Sf 4NfP,T,S*V>)/!JV05TF,TV51 

*  -  K*1 

- rrnr=5in70TT07TO - 

70  Tf( ARSISAL-5) -0.0005110* 10* 10 
10  RETURN 
FNO 

NOYFS  FUNCTION  *♦**  DEC  1  1979  ****** 

FUNCTION  NQVFSIKTN,KTTX) _ 

RF TURNS  l  FOR  YES  -1  F0»  NO 
NOYES  -  0 
1  RFADfKIN,10ILB 

lO  FORMATIA?)  - 


LliAi: 


rFIL8.F0.2HN0IN0YF5— 1 
IF ( NPYFS 1 10  ,70,10 

F»  RO® 

70  HRITF(KTTX»1001 
100  FORMAT (  *  t  YES  0®  NO?  *> 


10  RETURN  - 

FNO 

CT050  FILF  *******  JULY  15  1977  ******************* 
THSAL  FCN  ***♦♦*♦*  JULY  6  1977  ******♦♦♦*♦***♦♦*♦♦ 


T«KF5  up  TO  75  CUBIC  SPLINES  TO  GENERATE  A  SALINITY  FRO" 
®OTFNTTAL  TF"PF® ATURF  REFERRED  TO  THP  SURFICTY. INPUT  IJXTA 
CONSISTS  OF  LOWER  SPLTNF  80UN0AR Y  FOLLOWED  8Y  FOUR  CUEPFTC TENTS « 


i jia in 


ISELTN  4 NO  WORTHINGTON  "ETCALF  THETA-SAL  DATA. 


0  ATX 


DIMENSION  CIS, 75) 


130 


2rooo 

21050 


miy 


21150 
7T200 
21250 
7130  0 
21350 


MCliltl 


21450 

71500 

21550 

71500 

21650 


21750 

71800 

21850 

71900 

71950 


e. 

22050 

77100 

22150 

77700 

22250 


C  C  JUU 

22350 

77400 

22450 

77500 

72550 


DATA  C/0.00,34. 738063*  0. 0, 0. 0, 0.0, 

♦  0.50,34.7  3  805  3,-.T07?90,.584849E-02,-.253429E-02, 


rmiJlj  u  iT tn  €  i  i  u  •  at  j  i 


♦ 1.50, 34. 85029  7*. 1 27  785.. 529320E-01, -.  1353  79* 

*1. 75, 34. «83436,Tl  28868  4*582 8E-01  *  -.1799T3, 

♦2. 00, 34. 91 05 87*. 802 l 74E-01,-. 146093*. 228970, 

*7.  75,34.925087  r.'50093FF-01  ,_.75Y8B8E  -0 1  ,-77673B7F^0 1  ,r 
♦2.50,34.938790 ,»•  578  544E— 01,  •  552526E  — 02 •  359945E— 01 , 


♦3.00,34. 9645  75*..‘360969E-01»  — •  495364E— 01 * • 509274E— 01 , 
*T.  20, 34.9702  20, .7  73 936F-0I,-. 1 89292 F-0 1  »V5806 837-01 , 
♦3;40,34.97  44  06,.?17901E-01,.15  7868E-01,..’4T9  730E-02, 
*1.60,34.979434  ,i?  86805  F-Oir.T85975F-01V-.  2,94T72F-01, 
♦3.80,34.985679  **•  3  25895E-01,  •  102958E-02,— '.779688E— 01 ,' 


111  Wf.T'VKW’f  A  *T  ‘1 4  ■ 


♦5. 00,  35.01238,  .'175223E-01*.  357759E— 02 , •  114377E— 02, 
*7.00.35.070 89,.-455579E-01 r.T0T186F-01  ,  .3655927-05, 
♦  70. 00,35. 30174, •10‘8423, .1051 72t*-Ol,  — •  763  34  3  E— 03, 
*13. 00 ,35 . 7  0106  ,7.T5WI6  ,7. 1B8790F=02  ,  .  3108051-04 
♦16.00,36. 18748, .1 73 643, • 392926F— 02, — • 689732 E— 02^ 


,  jn  .  ->  -j  r  -3  3  ,  .  T09775t— 1 0T,  — . 

♦2 1. 00, 36. 9 040 l 13y0. 0,0. 0,0. 0*1540.0/ 


HAT  A  KNOTS/22/ 
250  X  -  0.0 


nr  -  cil.l l  -  r 
TFrr)T>305, 320,370 
305  x  «  -or 

310  CONTTNUF 
320  0  -  X 


♦ 


4 


22650 

77700 

22750 

27800 

22850 


C  c  7VU 

22950 
73000 
23050 
73  TOO 
73150 


C  KUU 

23250 

71300 

23350 

73800 

23450 


C  J  7UV 

23550 

71600 

23650 

71700 

23750 


TF(  10)325,325,330 
375  TO  -  1 
0  -  0.0 

110  TRIAL  •(  f  C  !5,T01*H*Cr5 
RETURN 


:onW*CT7,TUT 


V88U  FUNCTIONS  PFRLT  **»♦»  r*»  *♦******♦»*♦  »»*♦*»*  *8V3f*****»Rrr 

FUNCTION  VRBLfNVRI 


l  iLBfIBiU  I 


[J.ll 


«AR  25  1976  N  FOFONOFE 

VAT  VFRSI0N — I  NO  TAN  OCEAN  D8TJL  U976T.  NOV  1980.  WVB1UY 
INCLUDE  •CONRERtT.EOR* 


10  VRBL  -  1.0 

87 TURN  ~  - - - - 

20  VR8L  -  0.0 

3TETUR  N  -  - - 

30  CO  TO  (31,32,33, 34, 35, 36, 37, 38, 39 ^40, 41  ,'421 NVR 


iJJl’  11  • 


23850 

31 

VRBL  • 

XPL 

f 

r 

77900 

8FTURN 

. . 

. .  '* 

- 

23950 

32 

VRBL  - 

YPL 

?•  • 

- 

78000 

YFTURN 

- 4 

1 

r 


r“v  »  "  •  v  • 


131 


24050 

33  VRBL  • 

XLAT 

24100 

RETURN 

24150 

34  VRBL  - 

XLONG 

24200 

RETURN 

74250 

35  VRBL  - 

ICON 

24300 

RETURN 

74350 

36  VR5L-VCT 

24400 

RETURN 

74450  " 

24500 

37  VRBl  - 
RETURN 

DAY 

74550  - 

38  VRBL  « 

15  HP 

24600 

RETURN 

24650 

39  VR8L  • 

ICA5T 

24700 

RETURN 

24750 

24800 

40  VRBl  - 
RETURN 

N 

~ — 74650  “  ■  - 

41  VRBL  - 

NOP 

24900 

RETURN 

74050  4 1  TEfNVR-4B 1 470*43  ,43 - 

25000  420  VRBL  »  VRfNVR-llJ 

- 2-905*0 - RETUR  N - 

25100  41  1*0  -  0PDV(0VE,0VN*CP*N,f  1.E2) 

"  75150  PDF  -  FT  -PF - 

25200  f  1  -  —  .05 096 8  •PDF’** 2 /E0 

25250 -  F7  -  TFI-SFIPFO - - 

25300  f  3  -  -.05096  84  E2*E'2/E0 

- 25350 - F5~-  OPtJV I  ST  D»W,TP  ,N,  F1YF2  I 

25400  NVRX  -  NVR  -  47 

Z5456  *  W  TOI46.  4 9V50  ,51757455*54755 

25500  TF  I NVRX. CT *11) GO  TO  58 

"  75550  45  VRBL  -  F? -  - 

25600  RETURN 


\ 

■ ; 

A 

Tut 


25700 

25750 

25800 

75850 

25900 


26000 
"  26050* 
26100 
76150 
26200 


RETURN 

58  TOOL  •  PDF 
RETURN 

5T  VRBL  -  5E  -  OVF 
RETURN 


lunu  ui  iiifiv  i;i  » < w\ 1 


RETURN 

55  TR8L  »  FT 
RETURN 

54  5861  -  0.3 
RETURN 


26750 - 

26300 

26350 

- 55  VRBL  -  El - 

RETURN 

56  VRBL  -  EO 

- _ _ 

26400 
—  76450 

RETURN 

57  VRBL  -  1.0 /TO 

. 

-  .  .  .  .. 

. . . 

.  - - 

26500 

RETURN 

• 

1 

* 

*1 


26600  VE  -  E0580IPF,THF,5HFI  ♦  1.0 

~  76650  THP  •  DPOVT  OVF*  OTP  ,TT,  N  *  FI  ,T7 T7FO -  - 

26700  3HP  -  (1.0/EO  -  OVDTCP E *  THE ,SHFI RTHP > /DTU5 f PF ,THF,SMFI 

"76750  OR  -  -(  .0817VFf  **2  - — - 

26800  8V1  -  100.0*GR/E0 


toovu  CS  ”  TIM  1)1  - 

26900  TMT  •  P0LY<SE,0TP*CT*N,El,F2l  ♦  TON 

76550  51  -  5*rTPFVTHTV5FI - 

27000  IE  f  NVR— 67) 585*582*582  _ 


132 


2  7100 
27150 


F5  *  -50.96A*GK»P0F*+2 
585  NVRX  -  NV»  -  57 


irii  mu  m  ll  n>i 


[.l.fl.VFlill 


'! 

ME 


29950  VRP!  -  71*Z1 

30000  770  Y  -  VRPI  ♦  ?*POF9injF 

10050  VRBL  -  .5#VPPl*P59ff»*Y 

30100  1»FTUPM 


30150 

78  VRPI  -  3 • *  7 1 *71 /NOP 

30700 

GO  TO  770 

30250 

79  VP P I  -  16. 

30300 

GO  TO  770 

30350 

60  VRPI  -  71*7 1 /NOP 

30400 

600  Y  -  ,5*VRPI*(VRPT  ♦  2* PDF ) 

30450 

VRBL  •  GK *  *  2 * Y 

30400 

RETURN 

— 30550 - 

8 1  VRPI  ■  T6. 

30600 

GO  TO  800 

10650 

67  VR8L  -  -1 

30700 

RETURN 

30750 

83  VR0L  -  -l 

30600 

RETURN 

30650  ~~ 

BT  VP1U  -  ~D  VTTP  ( P  F  ,  TXr,  W1 

30900 

RFTURN 

30950 

85  VB0L  -  0V0S(PF*THP*SHF1 

31000 

RETURN 

31050 

06  VR0L  -  0V0P(PF,THF,SHF1*P0F 

31100 

RETURN 

31150 - 6  T  W8L -  =T5WTTFW  PUT  V EF ' 

31200  RFTURN 

31750  08  VR0L  -  -1 

31300  RETURN 

31350  89  VRBL  -  -1 

31400  RFTURN 

7TT5U - orr  VPBl  -'  -1  ~ 

31400  ®FTUBN 

31550  91  VRBL  •  (5F-F3)**2 

31600  RFTURN 

31650  97  7  -  -THP*PDF 

31700  V»RL  -  1/7 


31800 

93 

VRBL  - 

1/(E0*F0! 

3T05O 

RFTURN 

31900 

94 

VR8L  - 

THI ♦ THI 

31950 

RFTURN 

37000 

95 

THH*  - 

C(lREC«4t 

E'i  1:11 

32100 

RETURN 

37150 

96 

TH8"  « 

C(IRFG*41 

32200 

YRBL  - 

-( THF-TK5*!)/<THP*PDF 1 

37750 

return 

32300 

97 

YRBL  • 

THI 

37350 - 

«*.  turn 

37400 

98 

FO  «  1. 

O/EO 

37450 

VR8L  » 

-  .  5  ♦  F  6  *D  7P0V3  OVF  »  0  YWVCF  *.WWF3  *T  71  *  (  P  D  F  *E01  **7 

37500 

RF  TURN 

34400 

2000 

FND 

34450  C  KOAV  FCN  *****  ((OATS  JULY  6  1977  **♦♦♦♦ 

14  WO - ru qrf  TON  rt  0  AT  ( TO  JfflTTWl - 

34550  C  ♦**♦**♦♦**♦•**♦♦♦••♦*♦♦*•*♦♦•♦♦•♦*♦**♦♦ 

14600  C  m»IVPRT  grfghpian  gate  to  jultinttiy 

34650  C  USF5  LAST  4  DIGITS  OF  JUL I  AN  DAY.  #00  244000(7  TO  GET 
34700  C  FULL  JULTAN  DAY. 

34750  C 

34  000 - C  JULY  12  T975 - - 

34550  C 

14900  T Y  -  TYP  -  66 

34950  TF (7-160110 *2 0*20 

35000  10  «  -  T*0  -  3 


134 


1  3T056  00  TO  30 

35100  20  8  -  T HO  *9 

- 33T5U - TT“- TT"  I - 

33200  30  KO AY  -  ( 146 l*IVl 74* <15 3*M*2 > /5  ♦10-84 

■3575TJ  RETURN 


33300 

35350 

35400 

- T5T5 0~ 

35500 

'35550 

35600 

'3555CT 

35700 

- 35750 — 

35800 

35850 

35900 

35550 

36000 

- 36050 — 

36100 

36150 

36200 

'36750 

36300 

- 55550 — 

36400 

- 36450 

36500 

36550 

36600 

- 36650 — 

36700 
36750 
36800 
36850  ~ 
36900 

- 36950 — 

37000 
37050 
37100 
in  50 
37200 

- 37750 — 

37300 

37350 

37400 

37450 

37500 

- 37550 — 

37600 
37650 
37700 
-  37750 
37800 

- 17850 

37900 

37950 

38000 

“  38050 


6  NO 

C  JtnvmF  ******  CTOSft  JULY  7  1977.  ***** 

SUBROUTINE  KDATPf  KD»  I'D  *M,  IY 1 

-f— « 6+  *T*  +  *  *  ******* W¥¥**T¥¥¥V¥¥W¥¥* - 

C  CONVERT  JULIAN  DAY  TO  GREGORIAN  OATF 

c  '  . . 

K»K  0*84 

7Y*  f  4*K-1 1/1461 
T0»4*K-l-1461*IY 

- rr-  «  --rT  ,  -^B - 

10*U0*4)/4 
H-(  6*1 0-3 1/153 
TO *5*10-3-153*8 

70*110*51/5  -  " 

TF»M-ioi?0,lO,10 

- ITn*VM-9 - 

TY* I Y*  1 
RETURN 
?0  W-8  +  3 
"RETURN 
END 

C  V*g  rCN  ♦**»»  3N8R1  »»»♦» - 

FUNCTION  VKE(P,T,S1 
C  *•**•**♦*•*•*•***•**•**•* 

C  SRPCTFIC  VOLUME  KNUOSEN/FK M AN 
r  FF3  T5  1976  N  EOFOWOFF 
C 

- RO~i~~OVUOT*50T  TT  ,5'  ,503 - 

VO  *  -V 0/(1. 0  ♦  V01 

70  3KF  -  I-4.886F*6*77f  i;orr.83F=53FT  *  (  CT.5E-T7»r*F 
X  ♦!  (-6,  Of  -l  T*T*.l,8E-15  1 *5G* I  — 2',0E-l6*T*l,2O6E-14 1*T 
T  —4  *?40E— 13 1  *TG  *T2  •  13E— 14*T—1, 24064E— 121  RT^-lb.OOE— 143*8 
X  ♦((1.0E-l2*T-4.5F-lll*SG 

- y  » f  5T0E-1?  *T-3 i 2 BF— 10 I *T* t. 725F— 8I*SG - 

X  ♦  (  ( 4.  OF.-l  2  *T-6,’63E  — 101  *T*3,673E— 8 1  *T-2 ,2072E— 71 *P  1 

▼KE  -  VO  ♦  VKE*tIiO  F  VOT -  "  "  - - 

RETURN 

FNO  - - ~ - 

C  0V7R0  FCN  **♦**♦*♦**♦♦♦♦♦♦♦♦*♦*♦♦**♦***♦♦♦**♦ 

- FUNUrrON  PVTROI  PO,  DVB^  PWYCP  ,  N.TTOP,  VBN,  V  NX  *IVHP«KCA5T  »I  CON, UEL  8  f 

C  ****♦*♦♦*♦*♦****♦***•*♦*•*••♦*♦**♦♦♦♦♦* *********** 

C  -  - -  1 

C  TO  INVERT  POLYNOMIAL  FOR  INDEPENDENT  VAR  I ABLF,"  j 

*  . .  _  •  | 

C  FE8  1  1976  N,  EOEtSVOFF 

~C - - — — 

DIMENSION  CFIil- 

YN  -  0.0 

VR  •  0.0  ■  -  ■  .  • . —  -  “ 

POF  -  PO 

- fff-S-Q - 

OV  •  lVMX-VMNim.OATINDP-11 

no  50  J-l.NDP  -  -  -  - 

V  «  V8X  -  OV4FLOATI J-l ) 

v  *  POLYIV,OV8tCP,'NiTT8Nf V8X7"*r"T9-  ““  - 


•4 

4 


392*0 

y<nou 

39350 


50050 

50100 

50150 

50200 

50?50 


50350 

50500 

50550 


70  K  t 
V  < 
75  VP 


39550 
^9500 
39550 
*  ■  39600 

80 

V  -  VP  ♦  CPO-P|/OPDVIV,0V«.CP*N*VHN,V*X> 
r  -  k  ♦  i  . — 

TFCK-100180, 85,86 

TFf  *BS(P0-P»-0.T0518T,75,75 

- - - 

39650 

85 

nvzRo  -  V 

• 

39750 

95 

CONTINUF 

*  ] 

.. 

79  800 

PO-ABS  f  f DV7R0-V0 1 *UP 0 ) 

"  —  ‘  '  ‘ 

39850 

PP0-A"S( P0-N0P50FLP/21 

- 

39900 

ITF  CXTTV,  10001  T7HP  ,KCA3Ti  TCW,1»0,PFTJ 

:  i 

39950 

1000 

FORHATtlH  ,  *  FflR  STATION  f,A2*2I3,*  AT#VF8.0,*  08  LFVELt 

nv?P0  -  vhn 

IT  l VO V-DV7R 0  J 1 05 ,1 ro  f  T1 0 
CONTTNUF 

PO«AB5UOV7RO-VOT*OF01 
PPQ-A8S I  PQ— N0P*DFl.P/2  I 


:t  1 1 


0V7R0 

110  RFTURN 
PNO 


i  I  *  ♦ 

vox 


Luaufl  uikriAtxu  i>i 


MANDATORY  DISTRIBUTION  LIST 


FOR  UNCLASSIFIED  TECHNICAL  REPORTS,  REPRINTS,  AND  FINAL  REPORTS 
PUBLISHED  BY  OCEANOGRAPHIC  CONTRACTORS 
OF  THE  OCEAN  SCIENCE  AND  TECHNOLOGY  DIVISION 
OF  THE  OFFICE  OF  NAVAL  RESEARCH 

(REVISED  NOVEMBER  1978) 

1  Deputy  Under  Secretary  of  Defense 
(Research  and  Advanced  Technology) 

Military  Assistant  for  Environmental  Science 
Room  3D129 

Washington,  D.C.  20301 

Office  of  Naval  Research 
800  North  Quincy  Street 
Arlington,  VA  22217 
3  ATTN:  Code  483 

1  ATTN:  Code  460 

2  ATTN:  102B 

1  CDR  Joe  Spigai ,  (USN) 

ONR  Representative 

Woods  Hole  Oceanographic  Inst. 

Woods  Hole,  MA  02543 

Commanding  Officer 
Naval  Research  Laboratory 
Washington,  D.C.  20375 
6  ATTN:  Library,  Code  2627 

12  Defense  Technical  Information  Center 
Cameron  Station 
Alexandria,  VA  22314 
ATTN :  DCA 


Commander 

Naval  Oceanographic  Office 
NSTL  Station 

Bay  St.  Louis,  MS  39522 
1  ATTN:  Code  8100 

1  ATTN:  Code  6000 

1  ATTN:  Code  3300 

1  NODC/NOAA 
Code  D781 

Wisconsin  Avenue,  N.W. 
Washington,  D.C.  20235 


1  Mr.  Michael  H.  Kelly 

Administrative  Contracting  Officer 
Department  of  the  Navy 
Office  of  Naval  Research 
Eastem/Central  Regional  Office 
Building  114,  Section  D 
666  Sunnier  Street 
Boston,  MA  02210 


